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Preface 


The microcomputers from Commodore Business 
Machines Inc. are among the most popular around the 
world for use in the home, in the classroom, in the 
business office. In fact, they may be the all-time 
best selling personal computers to date. 

The lightweight desktop design of the ultramodern 
Model 64 and VIC and their powerful BASIC language 
capabilities place them in the forefront of the new wave of 
computers for hobbyists, students, teachers, parents, 
professionals and business persons who want to learn 
the new technology. 

These powerful microcomputers are not toys! Their 
hardware and software combinations make them highly 
useful tools in the business environment and the 
classroom as well as in the home. 

The total number of applications to which the various 
Commodore models can be put is limited only by the 
scope of the imagination. In this book, we have attempted 
to create and share 40 new practical sets of program 
ideas and appropriate applications software for your use. 

This book, as well as all published by ARCsoft 
Publishers, is written for newcomers, novices and first- 
timers, as well as for advanced users of microcomputers. 
Our intention has been to provide easy-to-type-and-run 
programs for the Commodore 64, VIC-20 and other com¬ 
puters using the Commodore version of the BASIC pro¬ 
gramming language. You type these programs into your 
computer and it does the rest. You do not have to be a pro¬ 
grammer or program writer to use this book. 

This volume is a companion to 101 Programming Tips & 
Tricks for the Commodore 64 and VIC-20 and to 34 VIC-20 & 
Commodore 64 Computer Programs for Home, School & 
Office and to Commodore 64 and VIC-20 Computer Pro¬ 
gram Writing Workbook. 


—Howard Adler 
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Introduction 

This is a book of programming advice and actual 
working programs for the Commodore Model 64,Com¬ 
modore VIC-20, and other personal microcomputers us¬ 
ing the Commodore Business Machines Inc. version of 
the BASIC programming language. 

There continues to be a great need for practical and 
useful software for the new generation of popular per¬ 
sonal computers. The Commodore 64, Commodore 
VIC-20, and other personal microcomputers from Com¬ 
modore Business Machines Inc., are among the world’s 
most popular computers for use in the home, in the 
classroom and even in the business office. 

Commodore computers are powerful, versatile and 
flexible—but what can they do? 

Once you’ve purchased the hardware, you need 
down-to-earth workable programs to run the computer. 
In this book, we provide 40 program ideas and appro¬ 
priate complete easy-to-type ready-to-run sets of program 
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listings for you to use in your own Commodore computer, 
to make your computer work for you. 

These programs are useful in themselves. They also 
make good starting points for further development as you 
learn more and more about how to program your own 
computer. Read these programs. Type them into your 
computer. Watch them run. Analyze how the lines in the 
listings cause the computer to step through a sequence 
of operations to reach a final goal. You’ll see how pro¬ 
grams are organized, how they work. You can use these 
fun and practical programs and then, later, modify them 
to do more or different work. Expand them to suit your 
needs as your interests grow. 

These programs are designed to be typed into your 
Commodore computer, just as you find them in this book, 
via the typewriter-style keyboard. No other programming 
is needed. 

We assume you have read the owner’s manual and in¬ 
structional pamphlets which came with your Commodore 
computer and any accessories you may have. You know 
how to hook the computer to your TV and to other ac¬ 
cessories you have. You know how to type programs into 
the computer. If you don’t know these beginning steps, 
please review the instructions in the Commodore owner’s 
manual. 

You do not have to be a programmer to use these 
pieces of software. Just type them in, as you find them 
here, and run them. They will work! 

Computer printouts 

To make sure no errors appear in this book, we have 
written and tested each of these programs on ourown Com¬ 
modore computer and we have printed them on our VIC- 
1525E graphic printer. Some tests were made on the 
Commodore 64 and some on the VIC-20. The hardcopy 
printout from the 1525Eline printer is reproduced directly in 
this book. Since no PEEK or POKE commands appear here, 
all of these programs work equally well on both the Commo¬ 
dore 64 and the VIC-20. 

The Commodore computer operated the printer and 
listed these programs. No human hands came between 
the computer and these listings so no re-typing or proof- 
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reading errors have been introduced. You should find that 
these programs will run exactly as reproduced here. 

If, after typing in a program, you get an error message 
from your Commodore computer, compare your typed 
program carefully with the program lines in this book. 
Remember that every space, punctuation mark, letter, 
number and symbol counts and must be in the computer 
exactly as in this book. 

If you do get such an error message, the most likely 
cause will be found to have been a typing error in transfer¬ 
ring the program from this book into the computer. 
However, should you find an error in this book, please call 
it to the attention of the author by sending a postcard or 
letter to him in care of ARCsoft Publishers, P.O. Box 132, 
Woodsboro, MD 21798 USA. The author will appreciate 
being able to make any necessary corrections to future 
editions of this book. 

Commodore 64/VIC-20 compatibility 

Most programs written on the Commodore 64, in 
BASIC, will run on the Commodore model VIC-20. Simi¬ 
larly, most VIC-20 BASIC programs will run on the Com¬ 
modore 64. 

However, programs using the BASIC commands PEEK 
and POKE are not interchangeable between the two com¬ 
puter models from Commodore. The BASIC word POKE 
sends data into a specific memory location in the computer. 
Such a memory location is identified by a number, often 
called the memory POKE number. The various memory 
location numbers in the Commodore 64 are different from 
those in the VIC-20. Thus, a POKE command which works 
in the Commodore 64 won’t work inthe VIC-20. And a POKE 
which works in VIC-20 memory won’t work in the Commo¬ 
dore 64. Please refer to the owner’s manual which was 
supplied by Commodore with your computer to determine 
the exact memory POKE numbers for your computer. 

PEEK, on the other hand, allows you to examine the 
contents of specific memory locations within the computer. 
You can PEEK into a memory location to see what already 
has been POKEd there. VIC-20 programs using PEEK will 
not find the same memory location numbers on the Com¬ 
modore 64, and model 64 programs will not find the same 


11 



PEEK locations in the VIC-20. Thus, PEEK will not work 
interchangeably between the two programs. 

We have attempted to eliminate all PEEK and POKE 
uses from the programs in this book so you will not have to 
worry about the compatibility problem. 

How to use this book 

This book has been organized into four sections for 
your convenience in finding programs. The first section 
includes programs of a money or financial nature. 

The second section includes programs which we hope 
you will find fun to use. Some are games, some are prac¬ 
tical and some can be used to wow your friends by demon¬ 
strating the seemingly-mysterious ways in which the com¬ 
puter can operate faster than a speeding bullet. 

The third section holds programs designed to be edu¬ 
cational in nature. Using these can provide fun and excite¬ 
ment while learning occurs. 

The fourth section finds the computer making life 
easier by doing the hard math which can be very practical 
yet difficult to perform. These turn your Commodore com¬ 
puter into a super-fast electronic helper! 

Naturally, these sections as we have divided the book 
are not rigid or exclusive. You undoubtedly will find some¬ 
thing in the math or finance or fun area which will be educa¬ 
tional. The educational programs can be fun and practical. 

Try them all. They are great fun to run. And they are 
especially designed to be short so you won’t have to spend 
hours typing any one program into your Commodore 
computer. 

Please note that each and every one of the programs 
in this book is complete and ready-to-run in BASIC 
for you to use. Try them all. They are great fun to 
run. They are especially designed to be short so you won’t 
have to spend hours typing in one program. 

As your knowledge of BASIC and how it makes your 
Commodore computer work grows, you will be able to 
build on these elementary programs to create ever-more- 
complex schemes for practical applications. 
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Endless running 

Many of the programs in this book will continue to 
run until you command them off manually via the RUN 
STOP key. You may stop any run, at any time, by pressing 
the RUN STOP key on the left side of the keyboard. This 
RUN STOP function in the Commodore computers is the 
same as what is called BREAK on other microcomputers. 

REMarks 

As you read through the 40 programs in this book, 
you will notice very few REM, or remarks, statements. The 
author’s training in writing BASIC-language computer 
programs included an emphasis on brevity and saving 
memory space. A sharp editing pencil was in order—and 
still is! 

REMarks and explanations in software are out. Hon¬ 
ing, fine tuning and waste trimming are in. Use of coding 
form program-writing worksheets is encouraged. Such 
worksheets can be found in the publication, Commodore 
Computer Program Writing Workbook, available from 
ARCsoft Publishers. Your objective always should be to 
make the most efficient use of available memory. 

Here’s another important note to remember: even 
though they may be headed toward the same goal, no two 
programmers will write the exact same list of BASIC in¬ 
structions, or program lines, from scratch. As you load 
these programs into your Commodore computer, one at a 
time, you’ll make modifications to suit your personal 
needs and interests if you want to. For instance, the exact 
wording of PRINT statements can be changed. Or two or 
more programs can be combined into one grand scheme. 
Your applications may vary. 

By the way, if you want to load more than one of 
these programs into your computer at the same time, be 
sure to use different sets of line numbers for different 
programs. For example, only one line can be numbered 
10. There cannot be two lines numbered 10 in the com¬ 
puter at the same time. 

We use the words ENTER and RETURN inter¬ 
changeably. Programmers today generally mix the use of 
the two words, to mean the same thing. In this case, we 
mean the RETURN key on the right hand side of the Com¬ 
modore keyboard. For example, you ENTER a line into 
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program memory by typing it into the computer and press¬ 
ing the RETURN key at the end of the line. Pressing 
RETURN causes it to be ENTERed into the computer’s 
program memory. 

Other computers 

These programs will run on other computers which 
use the BASIC language. However, to run these programs 
on other non-Commodore computers, you probably will 
have to make at least slight modifications to program 
lines. Graphics commands, especially, will differ 
elsewhere. Also, use of multiple-statement lines, using 
the colon (:), can be quite different in other brand-names 
of computer hardware. 

Also, if you use a non-Commodore computer, such 
things as line numbering, spacing, logical tests, 
multiplication symbols, print statements and other in¬ 
structions may be different. 

Refer to the owner’s manual which came with your 
non-Commodore computer. Compare its version of the 
BASIC language with Commodore BASIC. 

The author would like to have your suggestions for 
future editions of this work, or for other titles in this 
series for the Commodore computers. The author may 
be addressed in care of ARCsoft Publishers. 


Standalone vs. subroutine 

The programs in this book may be used as por¬ 
tions of larger lists of instructions to your Commodore 
computer. They can be written in as GOTO or GOSUB ob¬ 
jects. To do so, make appropriate changes to the first line 
(usually numbered 10 in this book) and to the last line of 
each program. 

If you create a subroutine, remember that every 
GOSUB must have a RETURN. RETURN must be the last 
line of every subroutine. 

If you work one of these programs into a larger set of 
instructions, be especially careful of your memory 
(variable) names or labels. They must agree with, and fit 
into, those you are using in the main program. Also, be 
careful of line numbers. No two programs can occupy the 
exact same set of line numbers. 
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Learning programming 

These programs are written to be typed into your 
Commodore computer just as you find them here—with 
no extra programming needed. We assume you know how 
to turn on your computer and how to go about typing in a 
program. 

Many of the programs and most of the programming 
advice in this book will be of interest to old hands, as well 
as newcomers, since we are presenting new twists and 
more powerful exercises aimed at making your computer 
do more work, more quickly. 

Amidst the three dozen programs in this book, you 
will find countless ideas for using your computer. Each 
piece of software is intended to make you a more- 
versatile programmer and make your programming chores 
lighter. 

This is not a replacement for the owner’s manual 
which came with your Commodore computer. You need 
to read it thoroughly, first, then use this book as a supple¬ 
ment. 

Use this book to stimulate your thinking about how 
to approach various software problems and projects. Use 
it to get good ideas for new and different approaches to 
all of your programming goals. As you grow and develop 
as a program author, modify these programs to make your 
computer do even more. 

Happy programming! 


15 




Home Finance Programs 




Car Payments 

Shopping for a new car? Use your computer 
to compute quickly the potential monthly car payment 
on various models. 

Imagine you want an $8000 car and are prepared to put 
up $1000 against the purchase. You want to arrange to 
finance the car for 36 months. You know the current annual 
interest rate on car loans is 15 percent. 

Key in those few numbers and the computer instantly 
tells you the car payment will be $242.66 per month. 

Program Listing 

10 PRINT CHR$< 14?"> ; REN CLEAR SCREEN 
28 00SUB 300 

30 PRINT"AUT0M0BILE PAYMENT" 

40 00SUB 300 
50 PRINT 

69 PRINT"PURCHASE PRICE $" 

70 INPUT T 

80 PRINT"DOWH PAYMENT Z" 

90 INPUT R 

100 PRINT"NUMBER OF MONTHS" 

1.10 INPUT N 

120 PRINT"ANNUAL INTEREST X" 

130 INPUT I 

148 I = <0.01*i:v’12 

150 P* < T-R > % I< 1 1 /1 +1 > TN > 

160 F'P~ I NT 100#P+0.5 > X100 
170 PRINT 

180 PRINT"PAYMENT %",PP 
190 PRINT 
200 G0SUB 300 
210 PRINT 

220 INPUT "FOR MORE PRESS RETURN".; K* 

230 CLR 
£40 GOTO 10 
300 FOR L=1 TO 22 
310 PRINT CHR$ai5>; 

320 NEXT L 
330 RETURN 
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Sample Run 

AUTOMOBILE PAVMENT 

* it y q <# v *e e # # ♦ e ■# # # e #1 # ■ n> «* e 


PURCHASE PRICE $ 
8000 

DOWN PAVMENT $ 

1 000 

HUMBER OF MONTHS 


86 

ANNUAL INTEREST 
15 


PAYMENT $ 


24'-'' 


66 


# # **##**# * * * w* # ## e e * 

FOR MORE PRESS RETURN 


Money Grows 


This program shows you how your money grows 
when deposited in a savings account at a certain annual 
interest rate, compounded monthly. 

The program will have the computer ask for the initial 
amount of principal saved by depositing in the account. 
Then the annual interest rate and the number of months 
to be displayed. The result of the run is a display of the 
changing principal as months pass and interest is added 
on. 

Line 10 clears the text screen. Lines 20 to 40 take in 
data from you. Lines 50 to 90 put out the results. Very 
handy! 

Line 85 is a timing loop to slow down the presenta¬ 
tion so you can digest the information. To make it even 


20 



slower, increase the number 400 in line 85. To make it 
faster, decrease the number 400 in line 85. 


Program Listing 

10 PRINT CHR*<147) : REM CLEAR SCREEN 

20 INPUT"PR INCIPAL $";P 

30 INPUT "ANNUAL INTEREST ’3'; R 

40 INPUT"NUMBER MONTHS";M 

45 PRINT CHR$a47> : REM CLEAR SCREEN 

50 PRINT"MONTH";SPC < 7 >;"BALANCE" 

55 FOR. Q=1 TO M 
60 I = <P*<0.01#R>)/12 
70 P=P+I 

75 PP*INT <100#P+0.5 >/100 

80 PRINT Q,PP 

85 FOR T=1 TO 400 : NEXT T 

90 NEXT Q 

100 PRINT:PRINT 

110 INPUT"FOR MORE PRESS RETURN";K* 
120 CLR : GOTO 10 

Sample Run 

PRINCIPAL ■$ 1000 
ANNUAL INTEREST y. 10 
NUMBER MONTHS 12 


MONTH 

BALANCE 

1 

1008.33 

o 

1016.74 

3 

1025.21 

4 

1033.75 

5 

1042.37 

6 

1051.05 

7 

1059.81 

8 

1068.64 

3 

1877.55 

10 

1086.53 

11 

1095.58 

12 

i104.71 

FOR MORE 

PRESS RETURN 
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Monthly Loan Payment 

Here’s a fast computation of the monthly payment on 
a loan. The amount borrowed, the principle, is stored in 
memory location P. i is the annual interest rate and N is 
the number of payments. I is converted to a monthly in¬ 
terest rate and then to a decimal in line 50. 

Program Listing 

10 PRINT CHR$147> : REM CLEAR SCREEN 
20 PRINT"AMOUNT BORROWED $" 

25 INPUT P 

30 PRINT"ANNUAL INTEREST 7s'* 

35 INPUT I 

40 PRINT"NUMBER OF PAYMENTS" 

45 INPUT N 
50 1=0.01*':: 1/12) 

60 M== < F’*I > / < 1 - < < 1 +1 > T< -N > > 

70 PRINT:PRINT 

80 PRINT"MONTHLY PAYMENT IS"," X ">M 

30 PRINT: PR I NT: PR I NT- 

100 PRINT"TO DO ANOTHER," 

110 INPUT"PRESS RETURN";Kf 
i20 CLR 
130 GOTO 10 

Sample Run 

AMOUNT BORROWED * 2000 
ANNUAL INTEREST 7. 8 

NUMBER OF PAYMENTS 36 

MONTHLY PAYMENT IS * 62.6727286 


AMOUNT BORROWED $ 1000 
ANNUAL INTEREST 7. 14 

NUMBER OF PAYMENTS 48 

MONTHLY PAYMENT IS $ 27.3264763 
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Unit Price 


Suppose you find 895 green Widgets and buy them 
for $695. How much did each green Widget cost? 
Rounded off, 78 cents. 

Unit price is total price divided by quantity. The quanti¬ 
ty can be expressed in weight, total numbers, etc. It works 
the same whether you are talking about pounds of coffee, 
yards of concrete, gallons of ice cream, boxes of books, 
or units of Widgets. 

This program asks for the name of the item, quantity 
purchased and total price paid. It then displays quantity, 
name, total and unit price. 

Program Listing 

10 PRINT CHR*(147> 

£0 PRINT”ITEM NAME : " 

25 INPUT N* 

30 PRINT 

35 PRINT"QUANTITV OF ITEMS:" 

40 INPUT Q 
45 PRINT 

50 PRINT"TOTAL PRICE" 

55 PRINT"PAID FOR ITEMS:" 

60 INPUT"* " .: P 
70 U=FV'Q 

80 UU-1 NT C 108*11+0.5 > /180 
80 PRINT- 

100 PRINT N*;" UNIT PRICE" 

110 print" is *".;uu 

120 PR I NT: PR I NT: PR I NT- 

130 INPUT "FOR MORE PRESS RETURN".; K* 

140 CLR : GOTO 10 


Sample Run 


ITEM NAME: 
WIDGET 
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QUANTITV OF ITEMS: 
939 

TOTAL PRICE 
PAID FOR ITEMS: 

$ 14653 

WIDGET UNIT PRICE 
IS $ 14.67 


FOR MORE PRESS RETURN 


ITEM NAME: 

THINGAMABQB 

QUANTITY OF ITEMS: 

S95 

TOTAL PRICE 
PAID FOR ITEMS: 

$ 695 

THINGAMABOB UNIT PRICE 
IS $ .78 


FOR MORE 


PRESS 


RETURN 


Shopper’s Friend 

This program finds the computer asking for certain 
information and then telling you which product brand name 
is the best buy. 

The computer wil ask for the brand name of a product, 
the quantity in the product package, and the price of the 
package. Then it will ask for the name, quantity and price 
for a second product. 
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After digesting all this information, it will tell you the 
brand name of the best-buy product and show you the unit 
prices for both brand names so you can agree with the 
computer's judgment. 

For example, suppose you were looking at corn flakes 
in boxes, one by Post and one by Kellogg. Suppose the Post 
box contained 24 ounces of flakes and was priced on the 
grocery shelf at $1.98 while the Kellogg box held 18 ounces 
and was priced at $1.59. Which would be the better buy 
based on unit price per ounce of flakes? 

Run the data through your computer and you'll find it 
computes the Post corn flakes to be the best buy with a unit 
price of 84 vs. the Kellogg unit price of 94. 

By the way, if the unit prices turn out to be equal, the 
computer will say they are equal. 

Program Listing 


10 PRINT CHR$<147>'REM CLEAR SCREEN 
29 PRINT 3PC<3} "SHOPPER'S FRIEND" 

3@ FOR L=1 TO 22'■PRINT"#"; '• NEXT L: PRINT 
40 INPUT”FIRST BRAND";X* 

50 INPUT"QUANTITV ";M 
55 IF M=0 THEN 50 
60 I NPUT "PRICE ".IN 
70 INPUT"SECOND BRAND”j V* 

80 INPUT"QUANTITV";Q 


85 IF Q=0 THEN 80 
90 INPUT"PRICE"JR 

100 PRINT CHR*C147>:REM CLEAR SCREEN 
110 IF N/M=R/Q THEN 508 
120 IF N/M<R/’Q THEN 300 
200 PRINT W $:" IS BEST BUV" 

210 GOTO 400 

380 PRINT X$J" IS BEST BUV" 

400 PRINT 

410 PR I NT X*; " UN I T~* " J I NT 100* ( N,-T1 > 


+ 0 . 5)/100 

428 PRINT V*;" UNIT=$"JINT <100*(R/Q) 
+0.5 > 100 
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430 FOR L=1 TO 8=PRINT:NEXT L 

440 INPUT"FOR MORE PRESS RETURN";Kf 

450 CLR 

460 GOTO 10 

500 PRINT 

510 PRINT NT;" * ";VT 
520 GOTO 400 

Selling Prices 
Of World Currencies 

Your own world currency guide allows you to 
convert money from one currency to another quickly. 

The conversion amounts built into program lines 100 
to 590 were selected from the New York City market one 
day in August 1982. You should check later lists of selling 
prices and modify the DATA lines (program lines 100 to 
590) to show the current, correct amount. Check your 
local bank or stock broker for the latest exchange rates. 

The program will hold even more currencies, if you 
need them, even in the minimum no-extra-memory-added 
computer. Of course, you could gain even more bytes 
of program memory for other use if you used abbrevia¬ 
tions for country names or currency names. The problem 
with such abbreviations is that you have to remember 
them later! 

As written here, the program includes 50 countries, if 
you change the total number of countries by changing the 
DATA lines, be sure to change the number 50 in line 630. 
The program will run endlessly until you press STOP to 
end it. 

Program Listing 

10 PRINT CHR$a47> 'REM CLEAR SCREEN 
100 DATA ARGENTIHA,PESO,.0001 
110 DATA AUSTRAL IA,DOLLAR,.9815 
120 DATA AUSTRIA,SCHILL1NG,.0584 
130 DATA BAHAMAS,DOLLAR,1 
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149 HRTR BELGIUM,FRANC,,0215 
130 DATA BELIZE,DOLLAR,.3 
160 DATA BERMUDA,DOLLAR,1 
170 DATA BRAZIL,CRUZEIRO, .0053 
180 DATA CANADA,DOLLAR,.8114 
190 DATA CHILE,PESO,.0256 
208 DATA CHINA, VIJAN, .5236 
218 DATA COLOMBIA,PESO,.0256 
228 DATA CYPRUS,POUND,2.1552 
230 DATA DENMARK,KRONE,.1178 


DFlTFl ECUAD0R, SUCRE, . 0303 
DATA EGYPT,POUND,1.2195 
DATA FINLAND,MARKKA,.2129 
DATA FRANCE,FRANC,.1475 
DATA GERMANY,MARK,.4137 
DATA GREAT BRITAIN,POUND,1.776 
DATA GREECE,DRACHMA,.0146 
DATA HAITI,GOURDE,.2 
DATA HONG KONG,DOLLAR,.1682 
DATA HUNGARY,FORINT,.023 
DATA I ICELAND, KRONA, .. 0994 
DATA IHDIA,RUPEE,.1833 
DATA IRAG,DIHAR,3.3862 
DATA IRELAND,POUND,1„4155 
DATA ISRAEL,SHEKEL,.0377 
DATA ITALV, L.IRA, . 0008 
DATA JAPAN,YEN,.004 
DATA MENICO,PESO,.0111 
DATA NETHERLANDS,GUILDER,.3781 
DATA NEW ZEALAND,DOLLAR,.7405 
DATA NIGERIA, NAIRA, I. „ 4808 
DATA NORWAY,KRONE,.1523 
DATA PAK1STAN,RUPEE,.0809 
DATA PERU,SOL,.0014 
DATA POLAND,ZLOTY,.0125 
DATA PORTUGAL,ESCUDO,.0118 
DATA GAUDI ARABIA,RIVAL,.2307 
D A 7 Fl S 0 U T H fl F RIC A, R H H D, . 880 7 
DATA SPA IN, PESETA, 0891 
DATA SWEDEN,KRONA,.1653 
D A 7 Fl S WIT Z E R L A N D, F R A N C, „ 4902 
DATA THFl I LAND, BAHT, . 0435 
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560 DflTR TURKEY.. LIRA. .0066 
578 HATA USSR,RUBLE,i.3986 
580 BATA VENEZUELA,BOLIVAR,. 
590 DATA ZAMBIA,KWACHA,1.084 
600 PRINT"COUNTRY : " 

618 INPUT C$ 

620 PRINT 
630 FOR L®1 TO 50 
640 READ CCf 
650 READ m 
660 READ V 

670 IF CCT-Ci THEN 720 
680 CC*®"'^ 

690 NEXT L 
700 RESTORE 
710 GOTO 600 
720 RESTORE 

730 PRINT X";V 

740 PRINT : PRINT 

750 PRINT"DO YOU WISH TO” 

760 PRI NT"CONVERT DOLLARS" 
770 PR I NT "TO " m- 
78© PRINT"PRESS Y(YES> OR N< 
790 GET KT 

800 IF i<$®"" THEN 798 
810 IF K$'"="V" THEN 900 
820 IF K$=”N” THEN 848 
830 GOTO 780 

840 FOR Z-l TO 12 : PRINT : NEXT 

850 CLR 

860 GOTO 600 

900 PRINT CHRf<147> 

310 PRINT"DOLLAR AMOUNT” 

320 INPUT"TO BE CONVERTED' " 
930 CD~D*V 
940 PRINT 

950 PRINT I); C*" ".NIT 
960 P RIN T T A B < 1 > ' 1 U S $ "; C D 
970 GOTO 840 


Sample Run 

COUNTRY: 






ZRMBIfl 


KWACHA=US$ X 1 .084 

DO VOU WISH TO 
CONVERT DOLLARS 
TO KWACHA 

PRESS V < VE3 > OR NCNG > 


DOLLAR AMOUNT 
123 

123 ZAMBIA KWACHA 
US* 133.332 


COUNTRY: 

BELIZE 

DOLLAR»US$ X .5 

DO YOU WISH TO 
CONVERT DOLLARS 
TO DOLLAR 

PRESS Y < YES > OR NCNO? 
N 


COUNTRY■ 

HAITI 

GOURDE-US* X .2 

DO VOU WISH TO 
CONVERT DOLLARS 
TO GOURDE 

PRESS Y<YES> OR N<NO> 


DOLLAR AMOUNT 

t ( 
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77 HRITI GOURDE 
US* 15.4 


COUNTRY •' 
FINLAND 


MARKKA“08$ X .2129 


DO YOU WISH TO 
CONVERT DOLLARS 
TO MARKKA 

PRESS Y<YES> OR t-KNO 
r-i 


COUNTRY: 

CYPRUS 

POUND=06$ X 2.1552 

DO YOU WISH TO 
CONVERT DOLLARS 
TO POUND 

PRESS Y ■' YES > OR H(HO 


DOLLAR AMOUNT 
54321 

54321 CYPRUS POUND 
US* 117072.619 
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Fun Programs 




Code Groups 


Need some secret codes for your latest sensitive 
mission? How about sets of five random letters for use in 
Morse code practice? 

This program has the computer generate an endless 
string of random combinations of five letters. 

Program Listing 

10 PRINT CHR $(. 147> : REM SCREEN CLEAR 
20 FOR L=1 TO 5 
30 N*INT<91#RND<1>> 

40 IF H<65 THEN 30 
50 PRINT CHR$<N>; 

60 NEXT L 
70 PRINT : GOTO 20 

Sample Run 

JXSRV 

SXVKR 

NAEHB 

TQVSM 

RPVKQ 

flWLZV 

ZNAWP 

VTDMJ 

RKEZK 

BMLHJ 

usooo 

VRSKS 

HTSKQ 

IJDVUN 

RSUHF 

ICHVI 

IfILFE 

BVWHN 

QSVRI 

NLLML 
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Qi ch -P-- t.o ro <-* yj cd ot a ro r-.j 
53 Q O Q Q Q 


VZQOR 

UFRF'R 

VHBHR 

TDWSO 

HPGGH 

VEMFT 

GULFD 


Program Listing 

1 REM*****™IS PROGRAM LISTING HAS THE 
REM*****COMPUTER PRINT ON A LINE PRINTER 
REM*****WHICH MUST BE CONNECTED TO THE 
COMPUTER 

REM*****TO USE THIS PROGRAM 


OPEN 3,4 
CMD 3 

"PRINT CHR$ <. 147>:REM SCREEN CLEAR 
FOR L-l TO 5 
N“INT<91*RND<1)) 

IF N<63 THEN 30 
PRINT CHR*<N>; 

NEXT L 
70 PRINT:GOTO 20 


Sample Run 

AIURR 

ZNCBS 

RGHRF 

BTHLN 

XQJRT 

KLZZN 

GDAES 

WV..TK 

MCTFR 

FXVMV 
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Secret Message 

Secret messages can be lots of fun! They often are 
composed of codes in which letters of the alphabet have 
been replaced by numbers. 

In this easy-to-use program, the computer generates 
a list of pseudorandom numbers and assigns one number 
to each letter of the alphabet. You use the numbers, in 
lieu of letters, to write notes to your friends. 

There is very little chance of the same number being 
assigned to two different letters because available 
numbers range from zero to 999. 

When typing this program into yourcomputer.be sure 
to separate the alphabet letters with commas in line 100. 

By the way, note the nice two-column screen printing 
format! Line 250 does that. 

Program Listing 

10 PRINT CHR$<147> : REM CLEAR SCREEN 
20 Z-RND<-TI> 

100 DATA A,B J C,D;E,F,G,H,I,J,K,L,H J N, 
0,P,Q,R,S,T,U,V,U,X,V,Z 
200 FOR N«1 TO 13 
210 C=I NT 1000*RND C 1 > > 

220 READ L$ 

230 D=INT<1000*RND<1> > 

240 READ J'$ 

250 PRINT L$; " C; J$.; " ".Hi 
260 NEXT N 
300 GET l<$ 


310 IF K*-"" 
320 RESTORE 
330 GOTO 10 

THEN 

300 

Sample Run 

A 861 

B 

1 10 

C 73 

D 

56 

El 783 

F 

714 

G 444 

H 

228 
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I 

160 

J 

25 

K 

954 

L. 

386 

M 

952 

N 

279 

0 

944 

P 

999 

Q 

869 

R 

310 

s 

323 

T 

401 

U 

603 

V 

9 

w 

286 

X 

534 

Y 

352 

z 



Daily Code 

Need to have a secret code each day of the year? 
This software generates a list of code numbers. Of 
course, you can change the list every day if you wish. 


Program Listing 


i0 PRINT CHRf<147 >:2=RND <-TI> 

20 GOSUB 200 

108 PRINT"SUNDRY",C:GOSUB 200 
110 PR I NT " MONDAY " , C • GOSUB 200 
120 PRINT”TUESDAY",C:GOSUB 200 
130 PRINT"WEDNESDflV",C : GOSUB 200 
140 PRINT”THURSDAY",C : GOSUB 200 
.150 PR I NT ,! FRI DRY " , C : GOSUB 200 
160 PR I NT " SATURDAY, C = END 
200 C= I NT 10000#RND < 1 > > 

210 IF CO 000 THEN 200 
220 RETURN 


Sample Run 


SUNDRY 

9722 

MONDAY 

1496 

TUESDAY 

7648 

WEDNESDAY 

1930 

THURSDAY 

5119 


36 





FRIDAY 3417 

SATURDAY 2745 

READY. 


SUNDAY 9329 

MONDAY 7304 

T U E S D A Y 5 3 5 3 

WEDNESDAY 4127 

THURSDAY 8092 

F~ R ID A Y 3 3 2 

S A 7 U R D A Y 7 4 7 9 


READY. 


SUNDAY 2720 

MONDAY 9647 


TUESDAY 
WEDNESDAY 
THURSDAY 
F'E I DRV 
•~'H i URDfiV 


7083 

3 4 o ■4 


READ’’ 


Chinese Zodiac 

The most-famous oriental zodiac calendar is divided 
into twelve-year groups, each year having a different 
animal sign. The sign under which a person is born is 
believed to determine the circumstances of his life and 
the kind of person he is. 

The animals are rat, ox, tiger, rabbit, dragon, snake, 
horse, sheep, monkey, cock, dog and boar. 
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Run this program. When asked by the computer, type 
in the year of your birth. The computer will find which 
animal sign corresponds to your birth year and present 
you with information concerning your own cir¬ 
cumstances. 

The computer names the animal, describes your per¬ 
sonality traits, tells which other animal signs are compati¬ 
ble with your own, and tells which animal signs are your 
opposite. 

This game goes on endlessly until you press the 
BREAK key to stop the run. 


Program Listing 

10 PRINT CHR$C 147> : REM SCREEN CLEAR 
20 INPUT"YEAR OF BIRTH"JY* 

30 N$=R IGHT$ < V$.. 2> 

40 N=V AL C XT > 

<N/i2)=INT<H/12> THEN 200 

< < N-1 > /12 > “ I NT < N-1 5 /12 > THEN 250 

< < N-2 > / i 2 > -1 NT < < M~2 > /12 ) THEN 300 

< < N~3 > /12 «I NT < < N~3 > / i 2 ) THEN 350 
(<N—4!V12 > ~INT<<N~4>/12 > THEN 400 

< <N-5 > /121’.'«I NT < < N-5 ) / i 2 > THEN 450 

< < N -6 > /12 > ~ I NT < <. N-S > /12 > THEN 500 
<<N-7)/i2 >“INT<<N-7>/12 > THEN 550 
<CN-8>/12 >»INT C<N-S >/12 > THEN 600 

< C N-9 ) 12 > ~ I NT < ( H-9 > /12 > THEN 650 


50 

60 

70 

60 

90 

100 

110 

128 

130 

140 

158 

160 

170 

200 

210 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


< < N-10 > /12 > = I NT < < N-1 © > /12 
(. ( N-11 > /12 > I NT < < N-11 > /12 
GOTO 10 

PR I NT = PR I NT Y*; SI GN : RAT " 
PRINT:PRINT"YOU RRE:” 

215 PRINT"AMBITIOUS, SINCERE" 

228 PRINT:PRINT"COMPATIBLE WITH: 
225 PRINT"DRAGON, MONKEY" 


THEN 70S 
THEN 750 


230 PRINT : PR I NT " OPPOS I TE OF :" 

235 PRINT"HORSE" 

240 GOTO 808 

258 PRINT:PRINT Y$;" SIGH: ON" 

260 PRINT:PRINT"YOU ARE:" 

265 PRINT"LEADER, BRIGHT, CHEERY" 
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270 PRINT:PRINT"COMPflTIBLE WITH : " 
275 PR INT"SHAKE, COCK" 

280 PRINT:PRINT"OPPOSITE OF:" 

285 PRINT"SHEEP" 

290 GOTO 80S 

360 PR I NT : PR I NT V*" SI OH : TIGER " 

310 PRINT'PRINT"YOU ARE =" 

3i5 PRINT"SENSITIVE, COURAGEOUS" 
320 PRINT : PRINT"COMPflTIBLE WITH:" 
325 PRINT"HORSE, DOG" 

339 PRINT:PRINT"OPPOSITE OF:" 

335 PRINT"MONKEY" 

340 GOTO 808 

358 PRINT:PRINT Vf;" SION : RRBBIT" 
360 PRINT ; PRINT"YOU ARE : ” 

365 PRINT"TALENTED, AFFECTIONflTE" 
370 PR 1 NT:PRINT"COMPflTIBLE WITH:" 
375 PRINT"SHEEP, BOAR" 

380 PRINT:PRINT"OPPOSITE OF=" 

385 PRINT"COCK” 

390 GOTO 808 

400 PRINT:PRINT V$J" SIGN: BRAOON" 
418 PRINT:PRINT"YOU ARE : " 

4i5 PRINT"ROBUST, PASSIONflTE" 

420 PRINT:PRINT"COMPATIBLE WITH:" 
425 PRINT"MONKEY, RAT" 

430 PRINT:PRINT"OPPOSITE OF:" 

435 PRINT"DOG" 

440 GOTO 800 

430 PRINT:PRINT Vf;" SIGN: SNAKE" 
460 PRINT:PRINT"YOU ARE:” 

465 PRINT"WISE, INTENSE" 

470 PRI NT:PRINT"COMPATIBLE WITH:" 
475 PRINT"ON, COCK" 

488 PRINT:PRINT"OPPOSITE OF:" 

485 PRINT"BOAR" 

490 GOTO 800 

500 PRI NT : PR INT Yf *" SIGN : HORSE" 

510 PRINT : PRI NT"YOU ARE : " 

5i5 PRI NT"ATTRACTIVE, POPULAR" 

520 PRINT:PRI NT"COMPflTIBLE WITH : " 
525 PRINT"TIGER, BOG" 
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!j J 0 

\- 

i— i 

I — 

i—f 

Cl 

"OPPOSITE OF:" 

cr ■-» trr 

PRINT"RAT" 


540 

GOTO 800 


350 

PRINT:PRINT 

V$;" SIGN: SHEEP" 

560 

PRINT:PRINT 

"VOU ARE:" 

565 

PRINT"STVLB 

SH, PRIVATE" 

3 7 0 

PRINT:PRINT 

"COMPATIBLE WITH:" 

O r* w 

PRINi"BUHR, 

RABBIT" 

580 

PRINT:PRINT 

"OPPOSITE OF : " 

DoD 

PRINT"OX” 



590 GOTO 8@0 


680 

pr in r 

: PRIN! 

Vf; ” 

SIGN: 

MONKEV 

6 i 0 

PRINT 

: PRINT" 

VOU 

ARE : " 


6i5 

PRINT 

"FERSUA 

SIVE 

,INTELLIGENT” 

to iC. 0 

PR I NT 

: PRI NT” 

COMP 

AT IBLE 

WITH: 

62*0 

PRINT 

"DRAGON 

, R !"■ 

T” 


630 

PRINT 

: PRINT" 

OF'F'O 

SITE OF 

• JJ 

635 

PRINT 

"TIGER" 




646 

GOTO 

300 




650 

PRINT 

■PRINT 

ViV: ” 

SIGN: 

COCK ” 

660 

HR I NT 

: PRINT" 

VOU 

ARE: ” 


665 

PRINT 

"PIONEERING 

li 


666 

PRINT 

"SEEKING TR 

UTH” 


b 7 0 

PRINT 

•'PRINT" 

COMPATIBLE 

WITH: » 

675 

PR I. NT 

"SNAKE, 

OX” 



680 

PR I NT 

: PRINT" 

□PRO 

SITE OF 

• 11 

685* 

PRINT 

" RFlBB IT 

it 



690 

GOTO 

300 




700 

PRINT 

: PRINT 

Vf;" 

SIGN: 

DOG " 


7 i 0 PR I NT ■■ PR I NT " VOU ARE • " 

715 PRINT"GENEROUS, LOVAL” 

720 PRINT:PRINT"COMPAT IBLE WITH:" 
725 PRINT"HORSE, TIGER" 

730 PRINT=PRINT"OPPOSITE OF=" 

735 PRINT"DRAGON" 

740 GOTO 880 

750 PRINT:PRINT y$;" SIGN: BOAR" 
760 PRINT:PRINT"VOU ARE : " 

765 PRINT"GALLANT, NOBLE” 

770 PR I NT : PR I NT " COMP AT I BLE W I TH '• " 
775 PRINT"RABBIT, SHEEP" 

780 PRINT:PRINT"OPPOSITE OF : " 
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785 PRINT"SNAKE" 

800 PRINT 

810 PRINT"TO HO MORE," 

828 INPUT " PRESS RETURN "¥■.% 
838 GOTO 10 


Guess The Number 

Here it is! The world’s oldest, longest running, most 
popular game: Guess The Number. 

When you start the program running, the computer 
thinks of a number and stores that away. You try to guess 
the number. If your number is too high, the computer says, 
“TOO HIGH." 

If you are too low, thecomputerwill report “TOO LOW.” 
The possible numbers range from zero to 100. 

Program Listing 

10 PRINT CHR*<147>:Z«RND<-Tn 

20 FOR L-l TO 20 : PRINT”$ "; : NEXT L ; PRINT 

30 N=INT <101*RND <1 ) > 

48 I NPUT "GUESS THE NUMBER" .: G 
50 IF G>N THEN PRINT"TOO HIGH" : GOTO 40 
60 IF G<N THEN PRINT"TOO LOW" : GOTO 48 
70 PRINT : PRINT"RIGHT !" 

S0 PR I NT " LET 'S GO AGAIN" 

80 GOTO 20 


Sample Run 

m********w*****M.* 

GUESS THE NUMBER 100 
TOO HIGH 

GUESS THE NUMBER 1 
TOO LOW 

GUESS THE NUMBER 33 
TOO HIGH 
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GUESS THE NUMBER 9 
TOO LOW 

GUESS THE NUMBER 26 
TOO HIGH 

GUESS THE NUMBER 16 
TOO HIGH 

GUESS THE NUMBER 12 
TOO LOW 

GUESS THE NUMBER 13 


RIGHT ! 

LET'S GO AGAIN 
******************** 

GUESS THE NUMBER 50 


TOO LOW 

GUESS THE NUMBER 
TOO HIGH 

GUESS THE NUMBER 
TOO HIGH 

GUESS THE NUMBER 
TOO HIGH 

GUESS THE NUMBER 


67 


RIGHT ! 

LET'S GO AGAIN 
f if * ;f ;f f f * * if if if: if :f ;f if ;f f f f 
GUESS THE NUMBER 50 
TOO HIGH 

GUESS THE NUMBER 25 
TOO HIGH 

GUESS THE NUMBER 13 
TOO LOW 

GUESS THE NUMBER 20 
TOO HIGH 

GUESS THE NUMBER 17 
TOO HIGH 

GUESS THE NUMBER 15 

Right ! 

LET ■'S GO AGAIN 
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Original Hi/Lo Game 


Here it is. Where everybody started in micro¬ 
computer programming back in the Seventies. The first 
game ever played was a high-low guess-the-number 
routine. 

The computer selects a secret number. You try to 
guess it. The computer tells you whether or not you are 
too high, too low, or right on the number. 

Here’s how it works: the secret number can be zero 
to 1000. Line 100 generates a random number (the secret 
number) and stores it. Line 210 asks you to guess the 
number. 

Lines 300-310 decide if you are right or wrong. Line 
220 keeps track of the number of attempts. 

Program Listing 


10 PRINT CHR$C147> : REM CLERR SCREEN 
20 Z-RNDC-TI) 

30 T=0 

100 R-1NT Cl000*RNHC1> > 

200 PRINT"I HAVE fl SECRET NUMBER" 

210 INPUT"CRN VOU GUESS IT";B 
220 T«T+1 

230 PRINT : PRINT : PR. I NT "THAT WAS TRY NO."; 
300 IF B>R THEN PRINT•INPUT"TOO HIGH, 
GUESS AGAIN";B : GOTO 220 
310 IF BCR THEN PRINT:INPUT"TOO LOW,CUES 
AGAIN" .: B : GOTO 220 
400 PRINT CHR*C147> 

410 PRINT"YES, VOU GOT IT" 

420 PRINT R" IS THE NUMBER" 

430 PRINT"VOU GOT IT" 

440 PRINT"IN";T;"TRIES" 

450 FOR L=1 TO iG : PRINT : NEXT L 
460 CLR 
470 GOTO 30 
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Sample Run 


I HAVE R SECRET NUMBER 
CRH VOU GUESS IT 500 
THRT WAS TRY NO. 1 
TOO HIGH, GUESS FIBRIN 250 
THRT ms TRY NO. 2 
TOO LOW,GUESS AGAIN 400 
THRT WRS TRY NO. 3 
TOO HIGH,GUESS AGAIN 300 
THRT WRS TRY NO. 4 
TOO LOW,GUESS AGAIN 290 
THRT WRS TRY NO. 5 
TOO LOW,GUESS AGAIN 350 
THRT WAS TRY NO. 6 
TOO HIGH,GUESS AGAIN 340 
THAT WRS TRY NO. 7 
TOO HIGH,GUESS AGAIN 330 
THRT WRS TRY NO. 8 
TOO HIGH,GUESS AGAIN 320 
THRT WAS TRY NO. 9 
TOO LOW,GUESS AGAIN 310 
THAT WAS TRY NO. 10 
TOO LOW,GUESS AGAIN 325 
THAT WAS TRY NO. 11 
TOO LOW,GUESS AGAIN 327 
THRT WRS TRY NO. 12 
TOO HIGH,GUESS AGAIN 328 


THRT WAS TRY NO. 13 
TOO HIGH,GUESS AGAIN 326 
THAT WAS TRY NO. 14 


YES, YOU GOT IT 
326 IS THE NUMBER 
YOU GOT IT 
IN 14 TRIES 
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Two Dice 


Here’s a quick way to add real dice to any fun pro¬ 
gram you are designing for your computer. 

This program rolls two dice and lets you see the 
results, as with real dice. This is especially useful in 
those games where it is important to see the value of 
each. 

The subroutine in lines 100-140 generates the 
necessary pair of random numbers. Lines 60, 70 and 80 
make the display you want. 

Note that lines 60 and 80 each have nine asterisks. 
Line 140 is RETURN and must be the last line in the pro¬ 
gram. 

After you type in and RUN the program,press RETURN 
on your computer’s keyboard to roll the dice. 


Program Listing 

10 Q=RNIK~TI > 

20 PRINT CHR*<147>:REM SCREEN CLEAR 
30 PRINT"PRESS RETURN" 

48 INPUT"TO ROLL TWO DICE";K* : PRINT:PRINT 
45 PRINT CURTa47> : REM SCREEN CLEAR 
58 GOSIJB 100 
60 PRINT"*********" 

70 PR I NT" *"; dl ;" *".; DR;" *" 

80 PRINT"*********" 

90 PRINT : PRINT : GOTO 30 
100 DL°INT< 7*RND<1)> 

110 IF DL<1 THEN 100 
120 DR® I NT <. 7*RND < 1 > > 

130 IF DR<1 THEN 120 
148 RETURN 
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Coin Toss 


Here’s a handy way to settle arguments. Toss a coin. 
Only this time, let the computer do the work! 

Type in the program. Run it. The computer will report 
heads or tails after each toss. 

For a new toss, press the RETURN key on your com¬ 
puter’s keyboard. 

Line 10 clears the screen. A random number—either 
zero or one—is generated at line 20 and tested to see if it 
is a zero. If it is, the computer prints heads. If not, the 
computer drops to line 30 where it prints tails. Lines 50, 
60 and 70 accomplish the restart when you press 
RETURN. 

Program Listing 

10 PRINT CHR4K147} : REM SCREEN CLEAR 
15 Q=RND<-TI} 

20 IF aNT<2#<RND<l>)>Xl THEN PRINT 
"HERDS":GOTO 40 
30 PRINT "TAILS" 

40 PRINT:PRINT:PRINT 
38 PRINT"PRESS RETURN" 

60 INPUT "TO TOSS ANOTHER COIN" : l<* 

70 CLR 
80 GOTO 10 


Smart Adder 


One of the fun ways to use your computer is in 
wowing your friends. Next time they ask, ‘‘But, what 
can it do?”, show them its uncanny abilities at adding, 
spelling, writing upside down, even cracking jokes. Try 
this Smart Adder program on your friends. When your 
neighbors drop in for a cup of coffee, bring out the compu- 
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ter for a demonstration of its lightning speed. You’ll love 
their reactions. 

This program adds long strings of numbers in a flash. 
You give the computer a number. It starts at 1 and adds all 
numbers up to and including your number. For instance, if 
you give it a five, it will add 1 plus 2 plus 3 plus 4 plus 5 
and display the result. 

Ask your neighbor how fast he or she can add all the 
numbers to 100. It should take several minutes. While 
he’s working on it, let your computer do it in a split sec¬ 
ond. Your neighbor’sreaction is bound to be,“Gee whiz!’’ 


Program Listing 


10 PRINT CHR$<147> 

20 INPUT” GIVE ME 1=1 NUMBER" ; N 
30 IF NCI THEN 20 
40 FOR L~1 TO N:X*X+L=NEXT L 
50 PRINT:PRINT"THE TOTAL OF" 
60 PRINT"ALL NUMBERS" 

70 PR I NT "FROM 1 TO".:N 
80 PRINT"IS";X 
90 PR I NT '• PR I NT : PR I NT : PR I NT 
100 CLR : GOTO 20 


Memory Tester 

Most everybody can remember numbers. At least short 
numbers with few digits. But how long a number can you 
recall in a flash? 

The computer will briefly display a number. It then will 
remove the number from your view and ask you to repeat 
whatitwas. If you miss three times, the computer will tell 
you to FORGET IT, give you your score and end the game. 
Then it will start over. 
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On the other hand, if you recall correctly, the computer 
will say so and then give you a new number. The new 
number will have more digits than the previous number. 

Each time you guess correctly, the number gets longer. 

No matter how good you are, at some point you won’t 
be able to recall all the digits in proper sequence. 

How many digits can you quickly recall? 

Program Listing 

10 PRINT CHR*(147> : REM CLEAR SCREEN 
20 G*RND<-TI>:2=1 
30 S=10*RMBa> 

40 N=INT<S*Z> 

50 PRINT”REMEMBER->";N 

60 IF W~3 THEN PRINT"FORGET IT !":GOTO 140 
70 FOR T«1 TO 1000 : NEXT T 
80 PRINT CHR$ < 147>•REM SCREEN CLEAR 
90 INPUT"WHAT WAS IT";S 
100 IF SON THEN PRINT"***VOU ARE WRONG***" 

■W~W+ 1 :GOTO 60 

11 © PRINT"***VOU ARE RIGHT***"■P~R+1:Z=Z*1© 
120 PRINT R;"RIGHT SO FAR" 

125 FOR T~1 TO 1000:NEXT T 
130 PRINT': GOTO 3,3 

140 PR I NT PR I. NT " VOU HAH " ; R.: " RI GHT " 

150 PR I NT : PR I NT ” LET •" S START OVER " 

160 PRINT"PRESS ANV KEY" 

170 GET K$ 

180 IF K$="" THEN 170 
190 CLR : GOTO 10 


Super Slot-0 

As with all the programs used as examples in this 
book, simply type this one in and RUN it. The computer 
will display, on your video screen, the name of this 
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program and some simple instructions. 

To simulate pulling the slot machine’s lever arm, 
press the RETURN key on the keyboard. 


Program Listing 


10 PRINT CHR*<147):REM SCREEN CLEAR 
20 GOSUB 500 

30 PRINT:PRINT:PRINT : PRINT 
40 GOSUB 200 

50 PRINT" ***** ***** *****" 

60 PRINT" * "; fl$;" * * ’MBS;" * * ” 

;cs;" *" 

70 PRINT" ***** ***** ***.**’’ 

80 PRINT : PRINT:PRINT : PRINT 
90 PRINT"TO PULL THE LEVER," 

100 INPUT"PRESS RETURN";K* 

110 CLR 
120 GOTO 10 
200 GOSUB 400 
210 fl$=CHR* 

220 GOSUB 400 
230 BS=CHR$CX> 

240 GOSUB 400 
250 CS*CHRS<X> 

260 RETURN 

480 R=INT<4*RND<1>) 

410 IF R<1 THEN 400 
420 IF R=1 THEN X=97 
430 IF R-2 THEN X*115 
440 IF R=3 THEN X=*122 
450 RETURN 

500 PRINT" ********************" 

510 PRINT" * COMMODORE SLOT-O *" 

520 PRINT" ********************" 

530 RETURN 
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Three-Digit Mystery 


Have your neighbor secretly select any three-digit 
number in which all three digits are the same. Then have 
him tell the computer only the sum of those three digits. 
The computer will identify his secret number! 

Program Listing 

10 PRINT CHR*<147> 

20 PRINT"SELECT A" 

30 PRINT-THREE-DIGIT NUMBER" 

40 PRINT"WITH ALL THREE" 

50 PRINT-DIGITS THE SAME." 

60 PRINT 

7© PR. I NT" ADD THE THREE" 

S0 PRINT"DIGITS TOGETHER" 

30 PRINT 

100 PRINT"WHAT IS THE SUM OF" 

110 INPUT"THE THREE DIGITS";N 

120 IF N<3 OR N>27 THEN 100 

130 Q-37#N 

140 PRINT:PRINT 

150 PRINT"VOUR. NUMBER IS";Q 

160 FOR. L=1 TO 7: PRINT: NEXT |_ 

170 CLP. •' GOTO 20 


Yes/No Decision Maker 

This is handy for the busy executive who doesn't 
have time for decisions. 

Line 10 clears the screen. Line 20 generates a ran¬ 
dom number from zero to 100. Line 20 selects a yes 
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answer if the random number is greater than 49. Other¬ 
wise, line 30 chooses a no answer. Press any key to 
repeat the run. 

Program Listing 


10 

PRINT 

CHR$<147: 

) : Z=RND f. -TI 

20 

IF <100*RHD<1>! 

049 THEN PRINT 


: GOTO 

40 


30 

PRINT 

"NO" 


40 

GET K: 

T:IF "' 

’ THEN 40 

50 

GOTO 

10 



Executive Decision Maker 

Stumped by a toughie? Got one too hot to handle 
alone? Need help with major decisions? When there is no 
other way to decide, punch up this quickie and get a 
definite YES or NO. 

Program Listing 


10 PRINT CHR $<. 147> 

20 Q-RNIK-TI) 

30 R- I NT < 1000if:RND 1 > > 

40 PRINT : PRINT : PRINT 
50 IF R>499 THEN PRINT TFilKSO "YES" 
; GOTO 100 

60 PRINT TREKS) "NO" 

100 FOR L“1 TO 12=PRINT:NEXT L 
110 PRINT" PRESS RNV KEY" 

120 PRINT" TO NFIKE RNOTHER" 

130 PRINT" INPORTRNT DECISION" 

140 GET K$ 

150 IF K$="" THEN 140 
160 CLR 
170 GOTO 10 
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Superior Decision Maker 

Remember the YES/NO and Executive Decision 
Makers? Well, the power in the Commodore computer 
makes an improved decision maker possible. 

In this superior edition, a choice of eight replies is 
possible. 

After a run, the computer awaits your press of any 
key to do another. 

Program Listing 


10 DATA FIRE SOMEONE 
20 DATA PASS THE BUCK 
30 DATA VES 
40 DATA MAYBE 
58 DATA REORGANIZE 
60 DATA SIT ON IT 
70 DATA NO 

80 DATA SEE YOUR ANALYST 
98 Q-'RNB < ~T I > 

100 PRINT CHR$147> 

110 N~INT<9*RNDa::0 
120 IF NCI THEM 110 
130 FOR L*1 TO N 
140 READ Z* 

150 NEXT L 
160 PRINT ZT 
170 GET K$ 

180 IF K$~"" THEN 170 
190 RESTORE 
200 GOTO 100 


High/Low Bowling Score 

Suppose you bowl with a group of friends, each with a 
different score or set of scores? This program accepts their 


52 



names and scores and sorts out the persons with the highest 
and the lowest bowling scores. 

To complete data entry, simply press RETURN without 
data. That prompts your computer, via lines 120 and 130, 
to print the lowest score and the highest score. 

Naturally, this kind of sorting could be applied to any 
game with ranges of scores among different players. 


Program Listing 

10 PRINT CHR$U47> : REN CLEAR SCREEN 
20 INPUT"NAME ; "JN$ 

.-i r> rr l : — « t u rr i i r~ i.: -i < o 


'.J ij 

IF H '&~" 

" THEN 110 


40 

INPUTS 

CORE : " .: S 


50 

M=N+1 



fc* kj 

IF X= 1 

THEN LS=S:LN$» 

m ■■ h 

70 

IF S<LS 

THEN LS~S : LN# 


80 

IF S>H? 

THEN HS~S:HN$ 

=m 

80 

m ="" 



100 

GOTO 2 

0 


110 

f-’R I h r ; 

PRINT 


120 

PRINT" 

LOWEST SCORE• 

", LI' 

138 

PRINT" 

HIGHEST SCORE ; 

", Hi 

140 

PR I NT : 

PRINT : PRINT 


150 

F’R I NT 

TO DO MORE," 


180 

INPUT" 

PRESS RETURN'• 1 

r-OT 

170 

CLR 



180 

GOTO 1 

0 



Sample Run 

RUN RETURN 
NAME : 

30HN RETURN 
SCORE: 50 


NAME : 

SUSAN RETURN 
SCORE : 

89 RETURN 
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NAME : 

SCOTT RETURN 
SCORE: 

72 RETURN 

NAME: 

BOB RETURN 
SCORE: 

67 RETURN 

NAME: 

TOM RETURN 
SCORE: 

87 RETURN 


NAME : 

RETURN 

LOWEST SCORE: OOHN 50 
HIGHEST SCORE: SUSAN 89 


Funny similes 

Give these newfangled gadgets an inch and they’ll 
take a mile. In the case of the computer, give it some 
tacky retorts and it will spew out an endless string of 
dumb remarks. 

The fun is in having the computer randomly select 
various words and combine them to make silly sayings. 

The random number is used to match the words into 
similes. 

Program Listing 

10 PRINT CHR$(147):REM CLEAR SCREEN 
20 DATA SHORT,TALL,FAT,LEAN,CLEAN 
30 DATA DIRTV, GOOD, BAD, HAF'PV, SAD 
40 DATA GREEN,RED,YELLOW,BLUE,UGLY 
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50 DATA PRETTY,SHARP,DULL,TACKY,NATTY 
60 DATA STRONG,WEAK,MEAN,NICE,DUMB 
70 DATA GNOME,TREE,PIG,BOX,CLOCK 
80 DATA TURKEY,DRAGON,NURD,DOG,ROOKIE 
90 DATA BEET, BIRD.. SKYHAWK, OAK TREE, F’EACI- 
100 DATA TACK,RAZOR,PIN,PLUG,BULL 
110 DATA WORM , L_ I ON , LAMB, PUPPY , OX 
120 Q=RND<~TI> 

200 PRINT"WHOM ARE WE DESCRIBING TODAY" 
210 INPUT 3$ 

300 T=INT-:26*RNDa>> 

310 IF T<1 OR T>25 THEN 300 
320 FOR L*1 TO T 
330 READ I)$ 

340 NEXT L 

358 RESTORE 

400 T = IN T < 51Y R N D < 1 > > 

410 IF T<26 OR T>50 THEN 408 
420 FOR L=1 TO T 
430 REAJj E5 ; 

440 NEXT L 

450 RESTORE 

500 PRINT CHR*<147> 

510 PRINT Bt;" IS ";D* 

528 PR I NT "AS A " E# 

530 PRINT:PRINT:PRINT 

600 INPUT"FOR MORE, PRESS RETURN";Kf 

610 CLR 

620 GOTO 10 


Draw Straws 

Here’s one of man’s oldest decision makers. Several 
straws are broken off to the same length except for one 
extra-short straw. The length of all straws is concealed 
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and each person draws a straw. The person drawing the 
shortest straw "wins." That is, he is selected by the luck 
of the draw. 

Now, your computer can provide a fast and easy 
drawing where no straws are available. It does all the work 
for you by assigning electronic straws randomly to each 
person. Those straws are numbers. The shortest straw, or 
lowest number, “wins.” 


Program Listing 

10 PRINT CHR$<147> : REM SCREEN CLEAR 
15 Q*RND<-TI> 

20 PRINT SPC<3>; 

30 FOR L=1 TO 11 : PRINT CHRS<113); : NEXT L 
40 PRINT 

50 PRINT SPC<5>;"DRAW STRAWS" 

60 PRINT SPC<3>; 

70 FOR L-l TO 11:PRINT CHR$<113>; : NEXT L 

80 PRINT ; PRINT 

90 INPUT"NAME PLAYER 1";B* 

i00 INPUT"NAME PLAYER 2";C$ 

110 INPUT"NAME PLAYER 3";D$ 

120 B=I NT <. 100* < RND < 1 ) > > 

130 L=B 

140 C*INT <100* <RND<1> >) 

150 IF CCL THEN L-C 
160 D=INT C100* < RND <1)>> 

170 IF D<L THEN L*D 
180 PRINT:PRINT 

190 IF L*B THEN PRINT CHR*<18>JB 
;CHR$C146>:G0T0 210 
200 PRINT BS,B 

210 IF L=C THEN PRINT CHR*<18>;C*,C 
.: CHRS < 146 > : GOTO 230 
220 PRINT C$,C 

230 IF L*D THEN PRINT CHR$<18);D*,D 

;CHR$<146):GOTO 230 
240 PRINT 
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us r- to 

0<J OJ OJ 


250 PRINT:PRINT:PRINT 

0 INPUT "FOR MORE.- PRESS RETURN" ; K$ 
0 CLR 
0 GOTO 10 
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Learning Programs 



Math Flasher 


Here’s the basic routine (no pun intended) for an educa¬ 
tional flash-card program. This one is bare-bones, no 
frills. You can dress it up with more colorful right-n-wrong 
messages, opening and closing billboards, etc. You could 
even make it keep score and present a "batting average” 
at the end of its run. 

Here’s how it works: 

Lines 10- 90 determine which type of math you wish to 
do. Lines 60- 90 move program action to the appropriate 
group of lines further along in the program. 

Lines 200-290 handle addition. Lines 400-490, subtrac¬ 
tion. Lines 600-690, multiplication. Lines 800-890, divi¬ 
sion. 

For example, look at lines 200-290. Two separate ran¬ 
dom numbers are generated (lines 200 and 210). The ran¬ 
dom numbers are labeled P and Q. At line 230, the pro¬ 
gram uses P and Q and asks you to add them together. 
Line 230 waits for and accepts your answer. 

At line 260, the program makes the right or wrong 

decision, using the powerful IF/THEN statement. 
Line 280 prints the correct answer. 

Program execution for subtract (lines 400-490), multiply 
(lines 600-690), and divide (lines 800-890), are similar ex¬ 
cept for line 420 in subtraction and line 830 in division. 

We make the assumption that it is not desirable to have 
negative numbers as results of subtraction. That is, we 
want only subtraction problems with results of zero, one, 
two, three, or higher. We want no problems which would 
result in answers below zero such as -1, -2, -3, and so 
forth. So, line 420 tests P and Q, before presenting the 
problem on the screen. If they will result in a negative- 
number answer, then the program returns to lines 400-410 
for two new numbers. 

In division, we want whole-number answers. That is, we 
want answers like 2 or 11 or 26. Not answers like 1.81 or 
9.75 or 21.3343. So, line 830 tests P and Q to make sure 
their dividend will be a whole number. If not, the program 
goes back to line 800 and line 810 for two new numbers. 
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Program Listing 

10 PRINT CHR»<147>:REM CLEAR SCREEN 
20 PRINT" DO YOU WANT TO" 

3© PRINT"ADD","SUBTRACT","MULTIPLY", 

" ri t v IDE" 

40 PRINT:PRINT 
50 GOTO 1020 

60 IF LEFT $ < KS1 > * " A " THEN 200 
70 IF LEFTS<KS,1>»"S” THEN 400 
80 IF LEFTS<KS,THEN 600 
90 IF LEFTS<KS,n«"D" THEN 800 
100 GOTO 40 
200 P-INT<10#RNDa>) 

210 Q“ I NT < 10*RND < 1 ) ') 

220 PRINT 

230 PRINT"ADD";P;”PLUS”;Q 
240 INPUT R. 

250 PRINT 

268 IF R-P+Q THEN PRINT "RIGHT":GOTO 280 
270 PRINT"WRONG" 

280 PR I NT P; " + " ; Q; " EQUALS " P+Q 

290 GOTO 1000 

400 P= I NT < 1 0!f RND 1 > > 

410 Q=INT <10#RND<1>> 

420 IF' R--Q-03 THEN 480 

430 PR I NT " SUBTRACT" ; Q| " FROM " P 

448 INPUT R 

450 PRINT 

460 IF R~P--Q THEN PRINT "RIGHT" : GOTO 480 
470 PRINT"WRONG" 

480 PR I NT P; " MI HUS " ; Q" EQUALS " ; P--Q 
490 GOTO 1000 
600 P IN T < 10 if. R N D < i > > 

610 Q* I NT < 1 QifRND ( 1 > > 

620 PR I NT " MULT I PLY " P; " TIMES"; Q 
630 INPUT R 
640 PRINT 

650 IF R=P:fQ THEN PRINT "RIGHT" : GOTO 670 
669 PRINT"WRONG" 

67G PR I NT P" TI MES " Q; " EQUALS " ; P:f Q 
680 PRINT 
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690 GOTO 1000 

806 F~ I NT < 100JHRHD < 1 > > 

810 Q" I NT C 10*'RND < i > > 

Skit 1 IF U =r 0 THEN 800 
8 3 0 IF P/Q)IHTCF/Q) THEN 800 
835 PR I NT" DIVI HE"P;" BV "; Q 
840 INPUT R 
850 PRINT 

86© IF R«P/Q THEN PRINT "RIGHT" : GOTO 880 
870 PRINT"WRONG” 

880 PR I NT P; " / Q ; " EQUALS“; P/Q 
890 PRINT 

i000 PRINT : PRI NT:PRI NT 
1010 PRI NT"TO no MORE MATH," 

1020 PRINT"PRESS ONE KEV" 

1030 PRINT 

1040 PR I NT " A ( ADD > ” , " S (SUBTRCT > ’’, 

" M < MULTPLV > ", " D DIVI BE > " , " Q 
CTO QUIT)" 


1050 GET KT 

1060 IF i<$=” n THEN 1050 
1065 PRINT CHR#a47> :REM SCREEN CLEAR 
1070 IF K*~ ,; Q" THEN 1100 
1080 IF OR "S" OR K$«"M" OR 

K$~”D" THEN 60 
1090 GOTO 1020 

1100 PRINT CHR$C147) : REM CLEAR SCREEN 
1110 PR.INT"OKAV, BVE BYE" 

1120 END 


Advanced Math Flasher 

Similar to the previous Math Flasher program, this ver¬ 
sion permits negative numbers and decimal answers. 

The range of possible problems has been expanded by 
usingl00*RND(1)in lines 200, 210, 400, 410, 600 and 610, 
800,810 rather than10*RND(1). 
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Deleting lines 420 and 830 from the easier Flasher pro¬ 
gram allows occasional negative numbers to result from 
subtraction problems and fractional (decimal) numbers to 
result from division. 

Watch out! You may have to resort to the old-fashioned 
pencil-and-paper method of calculating answers to this 
program. 


Program Listing 


10 PRINT CHR$<147> ; REM 
20 PRINT" DO YOU WANT 


CLEAR SCREEN 
TO" 


30 PRINT"ADD”, 


JBTRACT","MULTIPLY 


"DIVIDE" 

40 PRINT-PRINT 
50 GOTO 1020 


60 

IF LEFTS<K$,1 >~"fl" 

THEN 

200 

70 

IF LEFT#(K$.■ 1 >~ "S" 

THEN 

400 

80 

IF LEFT*<K$1>*"M" 

THEN 

600 

90 

IF LEFTS1>*"D" 

THEN 

800 

100 

GOTO 40 



200 

F’= I NT c! 100#RND:S 1 > > 



210 

Q= I NT 100#RNB <. 1 > > 



220 

PRINT 



230 

PRINT "ADD" iPi "PLUS 

";q 



240 INPUT R 
250 PRINT 

260 IF R=P+Q THEN PRINT "RIGHT":GOTO 280 
270 PRINT"WRONG" 

280 PR I NT P; " +"; Q J " EQUALS"P+Q 

290 GOTO 1000 

400 P= I NT < 100+.RND C 1 > > 

410 Q«INT<100*'RNDU>> 

430 PRINT"SUBTRACT";Q;"FROM"; P 
440 INPUT R 
450 PRINT 

460 IF R«P-G THEN PRINT "RIGHT":GOTO 480 
470 PRINT"WRONG" 

480 PRINT P;"MIHUS";Q;"EQUALS";P-Q 

490 GOTO 1000 

600 P*INT<100*RND <i>> 

610 0=1NT <100YRND<1)> 
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620 PRINT"MULTIPLY";P;"TIMES” i Q 
630 INPUT R 
640 PRINT 

650 IF R*P#Q THEN PRINT "RIGHT":GOTO 670 
660 PRINT"WRONG" 

670 PR I NT P" TI MES " ; Q; "EQUALS"; P#Q 

660 PRINT 

690 GOTO 1000 

800 P= I NT < 100#RND < 1 > ') 

810 Q“INT C100#RNDC1>> 

820 IF Q~0 THEN 890 
835 PRINT"DIVIHE";P;"BY"JQ 
840 INPUT R 
850 PRINT 

860 IF R=P/Q THEN PRINT "RIGHT" : GOTO 880 
870 PRINT"WRONG" 

889 PR I NT P;" /"Q;" EQUALS" i P/Q 

890 PRINT 

i000 PRINT:PRI NT:PRINT 
1010 PRINT "TO DO MORE MATH.. " 

1020 PRINT"PRESS ONE KEY" 

1030 PRINT 

1040 PRINT"A<ADD>","S<SUETROT>", 

" M < MULT PLY > " , " D C DIVIDE > " , " 

Q CTO QUIT)” 

1050 GET K$ 

i860 IF K$~~"" THEN 1058 
1065 PRINT CHR147) ; REM SCREEN CLEAR 
1070 IF K*-"Q” THEN 1100 
1080 IF OR K$~"S" OR OR 

"D" THEN 60 
1098 GOTO 1026 

1100 PRINT CHR$C147>=REM CLEAR SCREEN 
1110 PRINT"OKAY, BYE BYE" 

1120 END 


U.S. Presidents 

Fourteenth. Let’s see, that was Franklin Pierce. Cor- 
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rect. The fourteenth president was Franklin Pierce. Let’s 
try another. Thirty-fourth. John F. Kennedy. Wrong. The 
thirty-fourth president was Dwight D. Eisenhower. 

How many of the 40 U.S. presidents can you name? 
Bet not as many as you would like! 

This program tests not only your knowledge of the 
name of each president and his number in rank, but also 
the spelling of his name. 

The more you take this test, the more you learn. 


Program Listing 

10 PRINT CHR$<147} : REM CLEAR SCREEN 
20 Q“RND< - TI> 

30 DATA FIRST,GEORGE WASHINGTON 

40 DATA SECOND,.JOHN ADAMS 

50 DATA THIRD,THOMAS JEFFERSON 

60 DATA FOURTH,JAMES MADISON 

70 DATA FIFTH,JAMES MONROE 

8S DATA SINTH,JOHN QUINCY ADAMS 

90 DATA SEVENTH,ANDREW JACKSON 

100 DATA EIGHTH,MARTIN VAN BUREN 

110 DATA NINTH,WILLIAM H. HARRISON 

120 DATA TENTH,.JOHN TYLER 

138 DATA ELEVENTH,.JAMES K. POLK 

14 0 D A T A T W E L F T H, Z A C H A R V T A V L 0 R 

150 DATA THIRTEENTH,MILLARD FILLMORE 

160 DATA FOURTEENTH,FRANKLIN FIERCE 

170 DATA FIFTEENTH,.JAMES BUCHANAN 

180 DATA SIXTEENTH,ABRAHAM LINCOLN 

190 DATA SEVENTEENTH,ANDREW JOHNSON 

200 DATA EIGHTEENTH,ULYSSES S. GRANT 

210 DATA NINTEENTH, RUTHERFORD B. HAVES 

220 DATA TWENTIETH,JAMES A. GARFIELD 

230 DATA TWENTY-FIRST,CHESTER A. ARTHUR 

240 DATA TWENTY-SECOND,GROVER CLEVELAND 

250 DATA TWENTY-THIRD,BENJAMIN HARRISON 

260 DATA TWENTY-FOURTH,GROVER CLEVELAND 

270 DATA TWENTY-FIFTH,WILLIAM MCKINLEY 

280 DATA TWENTY-SIXTH,THEODORE ROOSEVELT 

290 DATA TWENTY-SEVENTH,WILLIAM H. TAFT 

300 DATA TWENTY-EIGHTH,WOODROW WILSON 
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310 IiRTR TWENTY-NI NTH , WARREN G. HARDING 

320 IiRTR THIRTIETH ..CALVIN COOL I DOE 

330 DATA THIRTY-FIRST,HERBERT HOOVER 

340 DATA THIRTY-SECOND,FRANKLIN D. ROOSEVELT 

350 DATA THIRTY-THIRD,HARRY S TRUMAN 

360 DATA THIRTY-FOURTH,DWIGHT D. EISENHOWER 

370 DATA THIRTY-FIFTH,.JOHN F. KENNEDY 

380 DATA THIRTY-SIXTH,LYNDON E. JOHNSON 

330 DATA THIRTY-SEVENTH,RICHARD M. NIXON 

400 DATA THIRTY-EIGHTH,GERALD R. FORD 

410 DATA THIRTY-NINTH,JIMMY CARTER 

420 DATA FOURTIETH,RONALD REAGAN 

438 PR I NT " wwMwmmwmm *" 

440 PRINT" * U.S. PRESIDENTS V" 

450 pr i nt" " 

460 PRINT 

478 PRINT"HOW MANY CAN YOU NAME?" 

480 FOR Q~'i TO 11 
490 PRINT 
500 NEXT Q 

518 PRINT"PRESS ANY KEY TO START" 

520 GET K* 

530 IF K$«"" THEN 520 
540 PRINT CHETa47> 

550 R-1 NT (. 81 #RND ( 1 > > 

568 IF R'Cl THEN 550 

570 IF INT<R/2>-RX2 THEN RHR-1 

600 FOR L«i TO R 

610 READ ST 

620 NEXT L 

630 PRINT"WHO WAS THE” 

640 PRINT ST- 

650 PRINT"PRESIDENT OF THE" 

668 READ C$ 

670 INPUT"UNITED STATES";Df 
680 PRINT : PRINT 

700 IF DT-CT THEN PRINT"CORRECT" : GOTO 720 
710 PRINT"WRONG" 

720 PRINT"THE" 

730 PRINT ST 

740 PRINT"PRESIDENT WAS" 

750 PRINT C$ 
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760 RESTORE 
770 PRINT : PRINT : PRINT 
780 PRINT"FOR MORE PRESS M" 
790 PRINT"TO QUIT PRESS Q" 
800 ]<$="" 

810 UET K'T 

820 IF THEN 810 

830 IF THEN 540 

840 IF K$*"Q" THEN 900 
850 GOTO 770 
900 PRINT CHR$147> 

910 PR I NT" OKflV.. END OF TEST" 
928 PRINT” THANK VOU" 


Sample Run 

# U.S. PRESIDENTS * 

HOW MANY CAN YOU NAME? 
PRESS ANY KEY TO START 


WHO WAS THE 
SEVENTH 

PRESIDENT OF THE 
UNITED STATES? 

ANDREW JACKSON 
CORRECT 

THE SEVENTH PRESIDENT 
WAS ANDREW JACKSON 

FOR MORE, PRESS M 
TO QUIT, PRESS Q 

WHO WAS THE 
THIRTY-THIRD 
PRESIDENT OF THE 
UNITED STATES? 

HARRY S TRUMAN 
CORRECT 

THE THIRTY-THIRD PRESIDENT 
WAS HARRY S TRUMAN 
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FOR MORE, PRESS M 
TO QUIT, PRESS Q 

WHO WAS THE 
SIXTH 

PRESIDENT OF THE 
UNITED STATES? 

BARNEY MILLER 
WRONG 

THE SIXTH PRESIDENT 
WAS JOHN QUINCY ADAMS 

FOR MORE, PRESS M 
TO QUIT, PRESS Q 


WHO WAS THE 
THIRTY-FOURTH 
PRESIDENT OF THE 
UNITED STATES? 

DWIGHT D. ElSENHOWER 
CORRECT 

THE THIRTY-FOURTH PRESIDENT 
WAS DWIGHT D„ EISENHOWER 

FOR MORE, PRESS M 
TO QUIT, PRESS Q 


WHO WAS THE 
EIGHTH 

PRESIDENT OF THE 
UNITED STATES? 

FRED MERTZ 
WRONG 

THE EIGHTH PRESIDENT 
WAS MARTIN VAN BLJREM 

FOR MORE, PRESS M 
TO QUIT, PRESS Q 
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WHO WAS THE 
TWENTY-NINTH 
PRESIDENT OF THE 
UNITED STATES'? 

WARREN G„ HARDING 
CORRECT 

THE TWENTY-NINTH PRESIDENT 
WAS WARREN G. HARDING 

FOR MORE, PRESS M 
TO QUIT, PRESS Q 


State Geographic Centers 

This mind bender tests your knowledge of 
geographic locations of cities and towns in the United 
States. These are special places since, in each case, they 
are the town nearest to the geographic center of its state. 

In other words, Columbus happens to be almost ex¬ 
actly in the center of Ohio. But which state has Challis at 
its center? Or Lewistown? Or Oklahoma City? (Well, some 
may be obvious!) 

You not only learn a lot from running this program 
but you have a barrel of fun. Talk about trivia! 

Program Listing 

10 PRINT CHRS<147> 

20 DATA CLANTON;ALABAMA 
30 BATA MT. MCKINLEY, ALASKA 
40 BATA PRESCOTT,ARIZONA 
50 BATA LITTLE ROCK,ARKANSAS 
60 BATA MADERA,CALIFORNIA 
70 DATA PIKES PEAK,COLORADO 
80 BATA EAST BERLIN,CONNECTICUT 
90 DATA DOVER,DELAWARE 
100 DATA BROOKSVILLE,FLORIDA 
110 DATA MACON,GEORGIA 
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128 DATA MRU I ISLAHD, HAW A 11 
138 HAIR CHRLLIS,IDAHO 
148 DATA SPRINGFIELD,ILLINOIS 
130 DFiTFi INDIANAPOLIS, INDIANA 
160 DATA AMES,IOWA 
170 DATA GREAT BANK,KANSAS 
180 DATA LEBANON,KENTUCKY 
190 DATA MARKS VI LL.E, LOU ISI ANA 

209 DATA DOVER,-'FOXCROFT, MAINE 

210 DATA DAVIDSONVILLE,MARYLAND 
220 DATA WORCESTER,MASSACHUSETTS 
230 DATA CAD ILLAC,MICHIGAN 

240 DATA BRAINERD,MINNESOTA 
250 DATA CARTHAGE,MISSISSIPPI 
2 6 0 DATA JEFFE RS 0N CITV ,M ISS 0 URI 
270 DATA LEWISTOWN,MONTANA 
288 DATA BROKEN BOW,NEBRASKA 
290 DATA AUSTIN,NEVADA 
300 DATA ASHLAND,NEW HAMPSHIRE 
310 DATA TRENTON,NEW JERSEY 
320 DATA WILLARD,NEW MEXICO 
330 DATA ONEIDA,NEW YORK 
340 DATA SANFORD,NORTH CAROLINA 
350 BATA MCCLUSKV,NORTH DAKOTA 
360 DATA COLUMBUS,OHIO 
370 DATA OKLAHOMA CITY,OKLAHOMA 
380 DATA PRINEVILLE,OREGON 
390 DATA BELLEFONTE,PENNSYLVANIA 
400 DATA CROMPTON,RHODE ISLAND 
410 DATA COLUMBIA,SOUTH CAROLINA 
420 DATA PIERRE,SOUTH DAKOTA 
430 DATA MURFREESBORO,TENNESSEE 
440 DATA BRADY,TEXAS 
450 DATA MANTI,UTAH 
460 DATA ROXBURY,VERMONT 
470 DATA BUCKINOHAM,VIRGINIA 
480 DATA WENATCHEE,WASHINGTON 
490 DATA SUTTON,WEST VIRGINIA 
500 DATA MARSHFIELD,WISCONSIN 
510 DATA LANDER,WYOMING 
520 PRINT"FOR HOW MANY STATES" 
538 PRINT"CAN YOU NAME THE" 
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540 PRIHI"GEOGRAPHICflL CENTER?" 
559 Q~RHDC -TI > 

568 R~ INT <■. 100*RND C 1 > > 

570 IF R<1 THEN 560 

580 IF' INT':;R/2)=R/2 THEN R=R-~.1 

590 FOR L*1 TO R 

600 READ ST 

616 NEXT L 

620 PRINT:PRI NT-PEINT 

630 PRINT"WHICH STATE HAS ITS” 

646 PRINT"GEOGRAPHIC CENTER NEAR 

650 PRINT St 

660 READ OS- 

67 Q INPUT lit 

675 PRINT CHEta4?> 

680 PRINT 

698 if Cf-Tt THEN PRINT "CORRECT’ 1 
7 0 0 P RIN 1"' W R 0 N O' ’ 

710 PRINT 

720 PRINT St;" IS" 

730 PRINT"THE CENTER OF" 

740 PRINT Ct 

730 RESTORE 

760 PR I NT: PR I NT ••PR I NT 

770 GOTO 360 


Sample Run 

FOR HOW MANV STATES 
CRN YOU NAME THE' 

GEOGRAPHICAL CENTER? 

WHICH STATE HAS ITS 
GEOGRAPHIC CENTER NEAR 
DOVER? DELAWARE 
CORRECT 

DOVER IS 

THE CENTER OF 

DELAWARE 
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WHICH STFlTE HRS ITS 
OEOGRRPHICRL CENTER NEAR 
COLUMBUS? GEORGIA 

WRONG 

COLUMBUS IS 
THE CENTER OF 
OH 10 


Foreign Capitals 

Here's a learning quiz we’ll bet you haven’t seen 
anywhere else. This program tests your knowledge of 
foreign countries. The more you play, the more you learn! 

You must tell the computer the correct name of the 
capital of the country it presents. And you must spell the 
name of that city correctly. 

What is the capital of Egypt, Poland, Turkey, New 
Zealand, Bolivia or Afghanistan? It can be very tough! 

Want to change to different countries? Change the 
DATA lines 20 to 540. Be sure to put a comma between 
country and capital in each DATA line. 


Program Listing 

10 PRINT CHR$<147) : REM CLEAR SCREEN 
15 G=RND -TI > 

20 DATA AFGHAN I STAN, KABUL 
30 DATA ALBANIA,TIRANA 
40 DATA A L G E R IA,A L G IERS 
50 DATA ARGENTINA,BUENOS AIRES 
S 0 D A T A A U S T R A LIA, C A N B E R R A 
70 DATA AUSTRIA,VIENNA 
80 DATA BAHRAIN,MANAMA 
90 DATA BANGLADESH,DACCA 
130 DATA BELGIUM,BRUSSELS 
110 DATA BOLIVIA, LA F'FlZ 
120 DATA BRAZIL,BRASILIA 
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138 BATA 
140 DATFl 
150 DRTfl 
160 DRTfl 
170 DRTfl 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
260 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 


B U L G A RIA .• 3 0 FIA 

BURMA,RANGOON 

CHILE,SANTIAGO 

COLOMBIA,BOGOTA 

CUBA,HAVANA 

CZECHOSLOVAKIA,PRAGUE 

DENMARK,COPENHAGEN 

EAST GERMANS', EAST BERLIN 

EGYPT,CAIRO 

FINLAND,HELSINKI 

FRANCE,PARIS 

GREECE,ATHENS 

HAITI,PORT-flu-PRINCE 

HUNGARY,BUDAPEST 

ICELAND,REYKJAVIK 

INDIA,NEW DELHI 

IRAN,TEHRAN 

ITALY,ROME 

JAPAN,TOKYO 

KUWAIT,KUWAIT 

LIBYA,TRIPOLI 

MEXICO,MEXICO CITY 

NEPAL,KATHMANDU 

NEW ZEALAND,WELLINGTON 

NORWAY,OSLO 

OMAN,MUSCAT 

PERU,LIMA 

P 0 L A N D, W A R S A W 

QATAR,DOHA 

ROMANIA,BUCHAREST 

SPAIN,MADRID 

SUDAN,KHARTOUM 

SWEDEN,STOCKHOLM 

SWITZERLAND,BERN 

TURKEY,ANKARA 

U.S.S.R. ..MOSCOW 

UNITED KINODOM,LONDON 

VENEZUELA,CARACAS 

WEST GERMANY,BONN 

YUGOSLAVIA,BELGRADE 

ZAIRE,KINSHASA 

ZAMBIA,LUSAKA 
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550 PRINT"*#FOREIGN CAPITALS#*" 

560 PRINT:PRINT"HOW MRNV CRN YOU NRME" 
570 R-1NT(106* <RND<1>>> 

380 IF R<1 THEN 570 

590 IF I NT < R/2 > « < R/2 ) THEN R«=R-1 

600 FOR L=1 TO R 

610 READ Sf 

620 NEXT L 

630 PRINT : PRINT 

640 PRI NT"COUNTRY:" 

645 PRINT 8$ 

630 READ C$ 

655 PRINT 

660 PRINT"WHRT IS THE CAPITAL " 

663 INPUT Df 

670 IF TJ$~C$ THEN PRINT: PRINT "RIGHT" 

:GOTO 690 

680 PRINT:PRINT"WRONG" 

690 PR I NT "CAPITAL OF " Sf 
700 PRINT"IS ">Z% 

710 RESTORE 

720 PRINT:PRINT:PRINT 

730 GOTO 570 


Birthstones 

What’s your Mother’s birthstone? You’d better know! 
If not, take this little quiz a few times until you get all 12 
months memorized. 

The computer presents the name of a month. You 
type in the name of the birthstone (correctly spelled) for 
that month. 

Program Listing 

10 PRINT CHR$<147> •' REM CLEAR SCREEN 
13 Q=RND <. ~T I > 

20 DATA JANUARY,. GARNET 
30 DATA FEBRUARY,AMETHYST 
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40 DATA MFIRCH, AQUAMARINE 
50 DFlTR APRIL, DIR MO HD 
60 DATA MAY,EMERALD 

7 9 D A T A .JI j N E , P E A R L 

8 8 D Fl T Ft J U L V.. RIJ E Y 

9 0 D A T A Fl I. j 0 1J S 7, P E RID 0 T 

100 DATA SEPTEMBER,SAPPHIRE 
110 DATA OCTOBER,OPAL 
120 DATA NOVEMBER,TOPAZ 
130 DATA DECEMBER,TURQUOISE 
3.40 PRINT" 

150 PRINT" * BIRTHSTONES *" 

160 print" 

170 PRINT:PRINT’PRINT 
180 PRINT"HOW MANY MONTHS" 

190 PRINT"DO YOU KNOW?" 

200 PRINT:PRINT 

210 PRINT"PRESS ANY KEY TO START" 

220 GET K$ 

230 IF KT«"" THEN 220 

240 PRINT CURT<147>:REM SCREEN CLEAR 

250 R-1NT C25*RND<1> > 

260 IF R<1 THEN 250 

270 IF INT<R/2>“<R/2> THEN R-R-l 

280 FOR L«*l TO R 

290 READ ST 

300 NEXT L 

310 PRINT"WHAT IS THE" 

320 PRINT"BIRTHSTONE FOR" 

330 PRINT ST 
340 PRINT 
350 READ CT 
36© INPUT DT 
365 PRINT 

370 IF DT=CT THEN PRINT "RIGHT!":GOTO 400 
380 PRINT"WRONG!" 

400 PRINT"THE BIRTHSTONE" 

410 PRINT"FOR ";ST 
420 PRINT"IS ";CT 
430 RESTORE 
440 FOR 1 TO 6 
450 PRINT 
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460 NEXT B 
4i , 0 CLR 
480 GOTO 250 

Sample Run 

* BIRTHSTONES * 

HOW MANY MONTHS DO YOU KNOW? 
PRESS ANY KEY TO START 
WHAT IS THE BIRTHSTONE 
FOR JULY? 

RUBY 
RIGHT ' 

THE BIRTHSTONE FOR JULY 
IS THE RUBY 


WHAT IS THE BIRTHSTONE 
FOR MAY? 

EMERALD 
RIGHT 1 

THE BIRTHSTONE FOR MAY 
IS THE EMERALD 


Number Of Days In A Month 

Here’s a cute teacher for your elementary-age kids. 
This program displays the name of a month and asks how 
many days in that month. If the correct number of days is 
entered, the computer says “correct.” If an incorrect 
number of days is entered, the computer says "wrong.” In 
either case, the correct answer is displayed. The 
educational game can go on forever if needed. 


Program Listing 

10 PRINT CHR$(147) : REM SCREEN CLEAR 
20 DATA JANUARY.31 
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30 DATA FEBRUARY.. 28 
40 DRTfl MARCH,31 
50 DRTfl APRIL,30 
60 DATA MAV,31 
70 DATA J UNE,30 
3 0 DAT A J U L Y , 31 
90 DATA AUGUST,31 
180 DATA SEPTEMBER,30 
110 DRTfl OCTOBER,31 
120 DATA NOVEMBER,39 
130 DATA DECEMBER,31 
140 Q-RNDOTn 
15© R* I NT ( 25#RND i > > 

160 IF R<1 THEN 158 

170 IF I NT < R/2 > a <. RX2 > THEN R*R-1 

180 FOR L“1 TO R 

190 READ S* 

200 NEXT L 

210 PR I NT "MONTH IS "; S* 

220 READ C$ 

230 PRINT"HOW MfiNV DAYS IN ";S$ 

248 INPUT D$ 

250 IF D$-C$ THEN PRINT"CORRECT"=GOTO 300 
260 PR. I NT "WRONG" 

300 PRINT S$;" HAS "JCf;" DAYS" 

310 RESTORE 
320 PRINT 
330 PRINT 
340 PRINT 
350 GOTO 130 
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Math Helper Programs 




Volumes 


Cones. Cubes. Cylinders. Prisms. Pyramids. 
Spheres. Name your object. This program computes the 
volume and displays it in cubic units. 

Put in inches, get cubic inches. Put in feet, get cubic 
feet. Yards, get cubic yards. No mixing units in any one 
calculation. Cylinder is right circular. 

Program Listing 

10 GQSUB 909 
20 PRINT:PRINT:PRINT 
30 INPIJT " OBJECT NR ME "; Xf 
50 PRINT 

60 IF X*»"CONE" THEN 100 
63 IF X*»"PYRAMID" THEN 100 
70 IF :«:$="CUBE" THEN 200 
75 IF X*-"CYLINDER" THEN 300 
80 IF X#*"PRISM" THEN 400 
85 IF X*-"SPHERE" THEN 500 
90 PRINT"TRY AGAIN" 

95 GOTO 20 

100 PRINT X*;" fiRER"; 

110 INPUT R 

120 PRINT X*;" HEIGHTH"; 

130 INPUT H 

140 V-<A#HV3 

150 GOTO 600 

200 PRINT X$;" LENGTH"; 

210 INPUT L 

220 PRINT X#;" WIDTH"; 

230 INPUT W 

240 PRINT X*;" HEIGHTH"; 

250 INPUT H 

260 V=L*W*H 

270 GOTO 600 

300 PRINT X$;" RADIUS"; 

310 INPUT R 

320 PRINT X$;" HEIGHTH"; 

330 INPUT H 
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340 V=3.141392654*2*R*H 

350 GOTO 600 

400 PRINT X*;" AREA”; 

410 INPUT A 

420 PRINT X*;" HEIGHTH"; 

430 INPUT H 

440 V=A*H 

450 GOTO 600 

50© PRINT Xf;" RADIUS"; 

510 INPUT R 

520 V®<3.141592654*4# < R13 ) )/3 
600 PRINT 

610 PRINT X*;" VOLUME ";V 
630 GOTO 20 

900 PRINT CHRf<147 );CHRf<28 > 

910 PRINT TAB< 5 ); CHRf< 111 > ; 

920 FOR L®1 TO 11 : PRINT CHRf<163 >; : NEXT L 
930 PRINT CHRf <112) 

933 PRINT TAB < 5 >;CHRf<165>; 

940 PR I NT TAB < 8 > "VOLUMES " ; 

950 PRINT TAB<17>;CHRf<167> 

955 PRINT TAB < 5 >; CHRf< 108) 

957 FOR L® 1 TO 11 : PRINT CHRf<164);=NEXT L 
960 PRINT TAB<17> ICHRf<186) 

970 PRINT CHRf<144) 

980 RETURN 

Sample Run 

OBJECT NAME? 

SPHERE RADIUS? 

SPHERE VOLUME 

OBJECT NAME? 

PRISM AREA? 

PRISM HEIGHTH? 

PRISM VOLUME 

OBJECT NAME? 

CUBE LENGTH? 

CUBE WIDTH? 

CUBE HEIGHTH? 

CUBE VOLUME 


SPHERE 

8 

2144.66038 

PRISM 

71 

18 

1278 

CUBE 

13 

8 

24 

2496 
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OBJECT NAME? CONE 

CONE AREA? 55 

CONE HEIGHTH? $6 

CONE VOLUME 1210 

OBJECT NAME? CYLINDER 

CYLINDER RADIUS? 88 
CYLINDER HEIGHTH?33 
CVLINDER VOLUME 18246.3701 

OBJECT NAME? PYRAMID 

PYRAMID AREA? 321 

PYRAMID HEI0HTH722 
PYRAMID VOLUME 2354 


Areas 

Circle. Ellipse. Parabola. Sphere. Square. Rectangle. 
Triangle. Name your shape. This program will compute its 
area. Surface area in the case of the sphere. Answer the 
computer’s questions and it will give you the answer you 
need, in square units of measure. If you use inches, the 
answer will be in square inches. Put in yards and get 
square yards. Meters, get square meters. Please don’t mix 
units in any one computation. 


Program Listing 

10 PRINT CHR$<147>:REM CLEAR SCREEN 
20 INPUT "SHAPE".: S$ 

30 PRINT 

40 IF S$*"CIRCLE" THEN 200 
50 IF S*»"ELLIPSE” THEN 300 
68 IF S$="PARABOLA" THEN 400 
70 IF St*"SPHERE" THEN 500 
80 IF S$="SQUARE" THEN 600 
90 IF Sf«"RECTANGLE" THEN 608 
180 IF SS®"TRIANGLE" THEN 788 
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i10 PRINT"HOT R RECOGNIZED SHAPE TRV AGAIN' 

128 PRINT 

130 GOTO 20 

20© INPUT "RAD I US" R 

£ 10 A--3. 141592654* < R T2 > 

228 GOTO 800 

300 INPUT " MAJOR AN IS"J 

310 INPUT"MINOR ANIS" i N 

320 A*0.7S54#J#N 

330 GOTO 800 

400 I NPUT” BASE ’MB 

410 INPUT"HEIGHTH";H 

420 A = < 2 / 3 > * < B * H > 

430 GOTO 800 

500 INPUT"RADIUS"JR 

5 1 0 A* 3.141592654*4* < R T2 > 

520 GOTO 800 

600 INPUT"LENGTH";L 

618 IF St*"SQUARE" THEN A=I_*L : GOTO 800 

620 INPUT"WIDTH";W 

630 A= 5 L*W 

640 GOTO 300 

700 I NPUT "BASE" B 

710 I NPUT "HE I GHTH".: H 

7 '2 0 8*0.5 * B * H 

880 PRINT 

810 PRINT"AREA "; A 
820 PRINT 
830 Gi 0 T 0 2 0 


Sample Run 

SHAPE TRIANGLE 
BASE 55 
HE IGHTH 22 


AREA 605 


SHAPE ELLIPSE 
MAJOR AXIS 19 
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MINOR AXIS 


14 


AREA 

208.9164 

SHAPE 

CIRULE 

RADIUS 

13 

AREA 

530.92915 

SHAPE 

PARABOLA 

BASE 

18 

HE IC-5HTH 

1 37 

AREA 

444 

SHAPE 

SQUARE 

LENGTH 

44 

AREA 

1936 

SHAPE 

SPHERE 

RADIUS 

13 

AREA 

2i23 . 716 

SHAPE 

RECTANGLE 

LENGTH 

•~y f "y 

WIDTH 

55 

AREA 

1210 


Reciprocals 

Key in any number. The computer will display its 
reciprocal. The actual conversion is done here at line 30. 

Program Listing 

10 PRINT CHR$<147) : REM CLEAR SCREEN 
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15 PRIHI"NUMBER TO BE CONVERTED" 

20 INPUT"TO ITS RECIPROCAL";N 
25 IF N=0 THEN PRINT:GOTO 15 
30 R~ 1/N 

49 PRINT-PRINT:PRINT 

50 PRINT"RECIPROCRL OF";N 
60 PRINT" IS" ;P. 

70 PRINT:PRINT:PRINT 

80 INPUT"FOR MORE PRESS RETURN";K$ 

90 CLR : GOTO 10 


Averages 

Key in numbers in any order. A zero will end entry. 
The computer will tell you the average number of all 
numbers you entered. 

Line 40 finds the total number of all numbers 
entered. Line 50 finds the total of entered numbers. Line 
70 computes the average. 


Program Listing 

10 PRINT CHR$U47>:REM CLEAR SCREEN 

20 INPUT"GIVE ME A NUMBER";2 

30 IF 2=0 THEN 70 

40 N=N+1 

50 T=T+2 

60 GOTO 20 

70 A=T/N 

1 90 PRINT :PRINT: PRI NT 

110 PRINT"THE AVERAGE IS"; A 

120 PRINT:PRINT:PRINT 

130 INPUT "FOR MORE PRESS RETURN" ; !<$ 

140 CLR'GOTO 10 
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Fractional feet 


You are measuring a box and the computation comes 
out to 14.5 feet. How do you change 14.5 feet into 14 feet 6 
inches? Here’s how: 

Program Listing 

10 PRINT CHR$a47';' 

20 PRINT"TVPE FRACTIONAL FEET" 

3@ PRINT”-::FEET TO A DECIMAL)" 

40 INPUT F 
45 W=INT <F) 

50 B»F-W 
60 D«12#B 

62 IF < D-1NT<D>K0.5 THEN I«INT<D>:GOTO 80 
70 I*INT<D)+1 
80 PRINT 

90 PRINT F;"FEET 
1 00 PR I NT W"FEET " ; I; " I NCHES " 

209 FOR L=i TO 10 : PRINT : NEXT L 
£10 INPUT"PRESS RETURN FOR MORE";K$ 

220 CLR : GOTO 10 

Sample Run 

TYPE FRACTIONAL FEET 
(FEET TO A DECIMAL) 

14.5 FEET = 

14 FEET 6 INCHES 


PRESS 


RETURN FOR MORE 


TYPE FRRCTIONRL FEET 
(FEET TO A DECIMAL.) 

13.3 FEET * 

19 FEET 10 INCHES 

PRESS RETURN FOR MORE 
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TVPE 

FROST 

IONAL FEET 

(FEET 

T'O A 

DECIMAL) 

16 . 2 

FEET 


IS F 

EET £ 

INC HI.:.’:5 

PRESS 

RETUi 

RN FOR MORE 

TVPE 

FROST 

I ONAL FEET 

(FEET 

TO A 

DECIMAL) 

99.7 

FEET 


'■“! Lh ]••• 

EET 8 

INCHES 

PRESS 

i RETLJ 

RN FOR MORE 

yypp 

FRRCT 

IONAL FEET 


(FEET TO R DECIMEL) 


75 FEET ® 

FEET 9 INCHES 


PRESS RETURN FOR MORE 

TVPE FRACTIONAL FEET 
(FEET TO E DECIMAL.) 

48 FEET * 

48 FEET O INCHES 


PRESS RETURN FOR MORE 


Type FRACTIONAL FEET 
(FEET TO A DECIMAL) 

61.4 FEET = 

61 FEET 5 INCHES 


PRESS RETURN FOR MORE 
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Standard Deviation 


Here’s a way to determine mean and standard devia¬ 
tion. In this particular program, you exit the entry cycle by 
entering the large number 999999999 (nine 9’s) so you 
can’t use 999999999 as one of your data points. 

This is a great opportunity to experiment with stan¬ 
dard deviation computations. Try a series of data points 
such as 3,5,3, 7, and 4. They should result in 

BATH POINTS TOTAL 22 
MEAN 4.4 

VARIANCE 2.23999998 
STD DEVIATION 1.49666295 

Program Listing 

10 PRINT CHR*a47> :REM CLEAR SCREEN 
20 INPUT"DATA PDINT : ";X 
30 IF X®999999999 THEN 60 
40 T=T+N: S=S+X t2 = N*N+ 1 
50 GOTO 20 

60 A«T/N:V=S/N-A T2-D-SQR<V > 

70 PRINT:PRINT:PRINT 

80 PRINT"DATA POINTS TOTAL";T 

98 PR I NT "MEAN".: A 

100 PRINT"VARIANCE";V 

118 PR I NT " STD DEV I AT I ON " D 

120 PRINT:PRINT:PRINT 

130 INPUT"FOR MORE PRESS RETURN”; K$ 

140 CLR : GOTO 10 


Sample Run 

DATA POINT 
DATA POINT 
DATA POINT 
DATA POINT 
DATA POINT 
DATA POINT 
DATA POINT 
DATA POINT 
DATA POINT 


9 


6 

rs; 

4 


999999999 
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DATA POINTS TOTAL 44 

MEAN 5.5 

VARIANCE 5.25 

STD DEVIAT ION 2.29128785 


FOR MORE PRESS RETURN 


Astronomy 

Lightyears/Distance Conversions 

Starlight, 

Starbright, 

I wish I may, 

I wish I might, 

Know the distance 
To your light. 

For students of astronomy everywhere, here's how to 
plug your computer into your hobby: use the machine to 
discover distances across the Universe! 

This program converts lightyears to kilometers or 
kilometers to lightyears or lightyears to miles or miles to 
lightyears. It’s hard to visualize distances in lightyears. 
Run this program and you’ll be better able to grasp the 
vast expanse of the Cosmos with your mind. 

Of course, all distances are approximate. We use 
365.86 days per year and, thus, 9.4830912x10 12 km/ly or 
5.892792872x10 12 mi/ly. 

Program Listing 

10 GOSUB 900 
20 PRINT:PRINT 
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30 PRINT"VOUR CHOICES ARE : " 

35 PRINT 

40 PRINT"a> LTVRS TO KILOMTRS" 

50 PRINT”<2> LTVRS TO MILES” 

60 PRINT”< 3 > KILOMTRS TO LTVRS" 

70 PRINT"<4 > MILES TO LTVRS" 

80 PRINT 

90 PRINT"WHICH CONVERSION?" 

100 PRINT"PRESS A HUMBER" 

110 GET m 

120 IF K$=*"" THEN 110 

130 IF VALa<-#>-a OR VRL<K$»4 THEN 20 

140 IF VAL < ICS > >2 THEN 400 

200 PRINT CHR$a4?:> - REM CLEAR SCREEN 

210 INPIJT "LI GHTVEARS " ; L 

228 K=L# < 9.4830912* < 18 T'i 2 > > 

230 M--L* ( 5.89279287# <10 T12 > > 

240 IF VAL<i<fO~2 THEN 300 

250 PRINT 

260 PRINT K;"KM” 

270 PRINT:PRINT:PRINT 

280 INPUT "PRESS RETURN FOR MORE" KT 

290 CLR : GOTO 10 

300 PRINT 

31© PRINT M;"MILES" 

320 GOTO 270 

400 PRINT CHR$<147> 

410 IF VAL<Kf>®4 THEN 500 
420 I INPUT " KILOMTRS " ; K 
430 L«K/<9.4830912# <10 ti2>) 

440 PRINT 

450 PRINT L;"LTVRS" 

460 GOTO 270 

500 INPUT"MILES".:M 

510 L~MK< 5.89279287#<10 tl 2 > > 

520 GOTO 440 
890 END 

900 PRINT CHRf<147}:REM CLEAR SCREEN 
910 FOR L«1 TO 22 : PRINT CHR$<120>; : NEXT L 
920 PRINT" LIGHTVEARS DISTANCE" 

930 FOR L~1 TO 22 : PRINT CHR$< 120 > r- NEXT L 
940 RETURN 
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Photography: Flash Exposure 

Use your computer to help take better pictures! 

The most important factor in pictures shot with flash is 
the distance from your flash to the subject. Subjects 
which are close to you will receive a lot of light while sub¬ 
jects farther away will receive less light. 

Check your data sheet for the film you are using. Look 
for the film guide number. Next, make an estimate of the 
distance in feet from the flash to your subject. 

This program determines the proper //stop setting for 
your camera. By the way, if the computer tells you to use 
an //stop setting between two //numbers available on your 
camera, set your lens opening at the nearest //number or 
halfway between the two, whichever is closest. 

For example, suppose your film has a guide number of 
80 and you estimate the flash-to-subject distance at 10 
feet. Use f/8 on your lens. 


Program Listing 

10 P R I H T C H R $ \ 1 4 7 > 

20 PRINT" PHOTOGRAPHY" 

3@ PRINT" FLASH EXPOSURE" 

40 FOR L=i TO 22 : PRINT CHR$<113>; : NEXT L 
30 PR I NT ■ PR I NT " F ILfi GUI BE NUMBER " 

60 INPUT G 

70 IF 0=0 THEN 50 

80 PRINT"FLASH-TO-SUBJECT" 

90 INPUT"DISTANCE";D 
100 IF H~0 THEN 80 
110 F~G/D 

i £ 0 P RIN T : P RIN T'' S H 0 0 T A T F / ’ ’.; F 
130 FOR L«1 TO 6:PRINT:NEXT L 
140 PRINT"TO DO ANOTHER," 

150 IMPUT "PRESS RETURN " .: K$ 

16© CLR 
170 GOTO 10 
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Sample Run 


PHOTOGRAPHY 
FLASH EXPOSURE 

FILM GUIDE NUMBER 
? S@ 

FLASH-TO-SUBJECT 

DISTANCE? 

SHOOT FIT F/8 
TO DO ANOTHER.. 
PRESS RETURN 


Photography: Close Ups 

For copying and other close-up work with your camera, 
you extend the camera lens by using bellows or extension 
tubes. In doing that, you must allow for an effective in¬ 
crease in the normal fl number or your picture will be 
underexposed. 

You make such an exposure compensation whenever 
the subject distance is less than eight times the focal 
length of your lens. 

This program provides a convenient means of determin¬ 
ing the effective //number. For example, if the focal 
length of your camera is 50mm and the iens-to-film 
distance (focal length plus extension from infinity posi¬ 
tion) is 100mm, and the normal // stop would be 22, the 
corrected stop would be fill. 

Or, if you are using a 25mm lens, with 50mm lens-to- 
film distance, a normal //stop of 8 should be corrected to 
f/4. Be sure to keep both focal length and distance in 
either mm or inches. Don’t mix apples and oranges. 

Program Listing 

10 PRINT CHR$a47> ; REM CLEAR SCREEN 
20 PRINT" PHOTOGRAPHY" 

30 PRINT" CLOSE UPS" 
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48 FOR L-l TO 22 : ’PRINT CHR$<S'7); : NEXT L 
30 PRINT:PRINT"WHAT is THE" 

60 I HF'UT " NORMAL F/NUMBER " ; F 
70 PRINT"LENS-TO-FILM" 

80 INPUT”DISTANCE IN MM";D 

90 IF D=0 THEN 80 

100 PRINT"LENS FOCAL LENGTH" 

110 INPUT" IN MM" L 
120 N-F#L/D 

130 PRINT : PRINT"EFFECTIVE F/NUMBER" 

140 PRINT" IS F,-'".;N 

150 FOR L-l TO 6 : PRINT : NEXT L 

160 PRINT"TO DO MORE," 

i70 INPUT"PRESS RETURN"; K$ 

180 CLR 
190 GOTO 10 


Sample Run 

PHOTOGRAPHY 
CLOSE UPS 
WHAT IS THE 
NORMAL F/NUMBER? 22 
LENS-TO-FILM 
DISTANCE IN MM? 100 
LENS FOCAL LENGTH 
IN MM? 50 

EFFECTIVE F/NUMBER 
IS F/ll 

TO DO MORE, 

PRESS RETURN 
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Computer books 
from ARCsoft Publishers 
At Your Bookstore 


For the TIMEX/SInciair 1000, Sinclair ZX-81 and MIcroAce: 

Practical TIMEX/Sinclair Computer Programs for Beginners 

Edward Page $7.95 ISBN 0-86668-027-6 

101 TIMEX 1000/Sinclair ZX-81 Programming Tips & Tricks 

Edward Page $7.95 ISBN 0-86668-020-9 

TIMEX/Sinclair Computer Games Programs 

Edward Page $7.95 ISBN 0-86668-026-8 

37 TIMEX 1000/Slnclair ZX-81 Programs for Home, School & Office 
Edward Page $8.95 ISBN 0-86668-021-7 

TIMEX/Sinclair Computer Program Writing Workbook 
Edward Page $4.95 ISBN 0-86668-810-2 

For the Texas Instruments TI-99/4A Home Computer: 

Texas Instruments Home Computer Games Programs 

Len Turner $8.95 ISBN 0-86668-032-2 

Texas Instruments Home Computer Graphics Programs 

Len Turner $9.95 ISBN 0-86668-031-4 

101 Programming Tips & Tricks for the Texas Instruments TI-99/4A 

Len Turner $8.95 ISBN 0-86668-025-X 

36 Texas Instruments TI-99/4A Programs for Home, School & Office 

Len Turner $8.95 ISBN 0-86668-024-1 

Texas Instruments Computer Program Writing Workbook 

Len Turner $4.95 ISBN 0-86668-812-9 

For the VIC-20 and Commodore computers: 

Commodore 64 Computer Programs for Beginners 

Howard Adler $8.95 ISBN 0-86668-033-0 

101 Programming Tips & Tricks for the VIC-20 and Commodore 64 
Howard Adler $8.95 ISBN 0-86668-030-6 

34 VIC-20 Computer Programs for Home, School & Office 

Howard Adler $8.95 ISBN 0-86668-029-2 

VIC-20 Computer Program Writing Workbook 

Howard Adler $4.95 ISBN 0-86668-811-0 

For the ATARI computers: 

101 ATARI Computer Programming Tips & Tricks 

Alan North $8.95 ISBN 0-86668-022-5 

31 New ATARI Computer Programs for Home, School & Office 
Alan North $8.9» ISBN 0-86668-018-7 

ATARI Computer Program Writing Workbbok 

Alan North $4.95 ISBN 0-86668-814-5 

For the TRS-80 Color Computer and TDP-100 computers: 

Color Computer Graphics 

Ron Clark $9.95 ISBN 0-86668-012-8 

101 Color Computer Programming Tips & Tricks 

Ron Clark $7.95 ISBN 0-86668-007-1 
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55 Color Computer Programs for Home School & Office 

Ron Clark $9.95 ISBN 0-86668-005-5 

55 MORE Color Computer Programs for Home, School & Office 

Ron Clark $9.95 ISBN 0-86668-008-X 

The Color Computer Songbook 

Ron Clark $7.95 ISBN 0-86668-011-X 

TRS-80 Color Computer Program Writing Workbook 

Ron Clark $4.95 ISBN 0-86668-816-1 

My Buttons Are Blue and Other Love Poems 

Edited by Ron Clark $4.95 ISBN 0-86668-013-6 

For the APPLE and Franklin ACE computers: 

101 APPLE Computer Programming Tips & Tricks 

Fred White $8.95 ISBN 0-86668-015-2 

33 New APPLE Computer Programs for Home, School & Office 

Fred White $8.95 ISBN 0-86668-016-0 

APPLE Computer Program Writing Workbook 

Fred White $4.95 ISBN 0-86668-813-7 

For the TRS-80, Sharp and Casio Pocket Computers: 

44 Programs for the TRS-80 Model 100 Portable Computer 

Jim Cole $8.95 ISBN 0-86668-034-9 

Practical PC-2/PC-1500 Pocket Computer Programs 

Jim Cole $7.95 ISBN 0-86668-028-4 

Pocket Computer Programming Made Easy 

Jim Cole $8.95 ISBN 0-86668-009-8 

99 Tips & Tricks for the New Pocket Computers 

Jim Cole $7.95 ISBN 0-86668-019-5 

101 Pocket Computer Programming Tips & Tricks 

Jim Cole $7.95 ISBN 0-86668-004-7 

Murder In The Mansion and Other Computer Adventures—-2nd Edition 
Jim Cole $6.95 ISBN 0-86668-501-4 

50 Programs in BASIC for Home, School & Office—2nd Edition 

Jim Cole $9.95 ISBN 0-86668-502-2 

50 MORE Programs In BASIC for Home, School & Office 

Jim Cole $9.95 ISBN 0-86668-003-9 

Pocket Computer Program Writing Workbook 

Jim Cole $4.95 ISBN 0-86668-817-X 

35 Practical Programs for the CASIO Pocket Computer 

Jim Cole $8.95 ISBN 0-86668-014-4 

For the TRS-80 Modal I and Modal III computara: 

TRS-80 Model l/lll Computer Program Writing Workbook 

Mark Lewis $4.95 ISBN 0-86668-815-3 

For the IBM Personal Computer: 

IBM Personal Computer Program Writing Workbook 

George Bridges $4.95 ISBN 0-86668-818-8 

Universal for use with any computer system: 

Universal BASIC Computer Program Writing Workbook 

Don Roberts $4.95 ISBN 0-86668-819-6 

ISBN: International Standard Book Number 
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Commodore Computer Book III 


Commodore 64 

Computer Programs for Beginners 

by Howard Adler 

Here are 40 complete, tested, ready-to-run programs in BASIC for 
the Commodore 64 and VIC-20 microcomputers as well as other com¬ 
puters using the Commodore version of the BASIC programming 
language. 

The practical, exciting and fun software in this book is easy to type 
into your Commodore computer and won’t take hours to set up. 

Money and finance programs compute car payments, monthly loan 
payments, unit price, currency rates and more. They allow you to com¬ 
pare shopping buys, find unit prices, and much more. 

Fun programs include secret codes and messages, zodiac predic¬ 
tions, number games, dice and coin tossers, adders, testers, and slot 
machine simulations. The computer draws straws, makes decisions for 
you and writes funny reports about your friends. 

Use your Commodore computer to learn! Programs include begin¬ 
ner’s and advanced math flasher, U.S. presidents, state geography, 
foreign capitals, birthstones, days in a month and much more. 

Let the computer do your hard math work. Programs in this book 
find volumes, areas, reciprocals, averages, fractional feet, standard devi¬ 
ation, lightyears and even photography exposures. 

All of these and more are among the 40 programs in this handy 
volume. Each program in this book is complete and ready to run all by 
itself. You type it in and the computer does the rest. And each program 
can be blended into a larger set of instructions to create bigger projects 
for your Commodore computer. These are ideal programs for beginners 
and novices, newcomers and first-timers in the world of computing, as 
well as those old-hands needing new and different ways to make their 
Commodore computers do real work. In addition, the 40 programs in this 
book will run on other computers which are programmed in the BASIC 
language, with only minor changes to program lines. 

This is the ideal set of software for use with the Commodore 64, the 
VIC-20 and ail other computers using Commodore BASIC. ^ 



ISBN 0-86668-033-0 


